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1.0 ABSTRACT 


yur ot THE OLR AND DCL OF AN RPO4/S/6 SUBSYSTEM. 
T OR ANY B} S_F THE MDLI. 
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aut . ow 


| 


Br ig 
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ee ey afe 18 nas ¢ 
RPL IeS Btes’ MECHANICAL 
Tare 16 N THIS 
"HA at NANCE REGISTER 


og —- sh ANY TESTING OF THE RH70 CONTROLLER 
8 T RPOH s/o edie DIVES § CONNECTED TO 
Hh TIS 0 
Sent CONT dt 1¢8 HAVE BEEN SUCCESSFULLY RUN TO 
ton BEF GRAM IS RUN. 
; 2.0 REQUIREMENTS 
2.1 EQUIPMENT 
POP-11 COMPUTER W 
is 74 6 DISK SYS 
is ont LOGI 
C bof O THE MOLT 
TERMINATED. 
2.2 STORAGE 
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 
2.3 PRELIMINARY PROGRAMS 
THIS peouey S THAT MAINDEC-11-D0Z2RJG- 
(LATEST REV) HAS N RUN WITHOUT ERRORS 
3.0 LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING .ARS TAPES 
4.0 STARTING PROCEDURE 
SWITCH 1 nnvceRe~ T WHEN THES Ae +a IS yo pan RUN USING _AN 
eH pean CAN BE SET oT Me FRONT PANEL, OR _ IN THE 
oe | rH REGI STER 4 THE OPERATOR SO Dest RES: SEE 
Pare aise 1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
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4.1 CONTROL SWITCH SETTINGS 
SEE SECTION S.1 
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4.2 STARTING ADDRESS 
START AT 00---FOR NORMAL nen 
TART AT 04---TO SELECT _NON FAULT PARAMETERS 
TART AT 10---FOR UNIT SELECTION 
T BE DOWN FOR WORST C RUN. WITH THIS 
/5/6'S ON THE SY L BE 


Me He Posse s_ON THe, SiSTER rt 
on es a arth THE ST UNIT NUMBER DRIVE — 

tier LOWEST UNIT NUMBER RHAS REGISTER 
204 RESTAR 


ie 


O START WITH FOLLOWING EXCEPTIONS: PROGRAM WILL 
me es CSR_AND VECTOR SS OF THE RHXX 
C Nast cc WHEN THI EN COMPLETED, THE PROGRAM 
WILL Batt ATICALLY araeo AERO SS 200, WITH THE SAME 
CONVENTIONS AS DESCR 200 START. 
210 
Aa is OR_WORST CASE RUN. WITH THIS 

STAR HE CONSOLE 7 Fel vee WILL ASK FOR_THE UNIT 
RURBER 10 ie pen T UNIT WILL BE TESTED 


4.3 PROGRAM AND/OR OPERATOR ACTION 

LOAD THE PROGRAM INTO MEMORY. 

SET STARTING ADDRESS ON THE SWITCH REGISTER 
PRESS “LOAD ADDRESS”. 


SET tT chee fom Sulton Ze" tines” (SEE SECTION S.1) 
WORST CASE IS ALL SWITC 


S. PRESS “START”. 


6. An me pRives PRESENT. O8 BR T 
RTION Tet sigh 
QUENT 
IVE 
PRIN 
NEED 


ee 


s.0 OPERATING PROCEDURE 
5.1 OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. 
AN 11734) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH 
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HIS SWITCH MU BF ae T T OF a PROGRAM WHEN THE 
K DRIVES TO BE TESTED ARE CONNECTED TO AN 

TROLLER. IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
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ARE CONNECTED TO AN RH11 CONTROLLER. 
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BHEN “Huis SW CH ae yt ee THE PROGRAM FINOS AN ERROR 
T D._ THIS SWITCH IS USEFUL 
N H 1 PRT WHEN ANY_ERROR 
IS DETE 1 3er ae Proghan LOOPING ON A TEST WITH 
SWITCH 1 Se TCH_IS 
rier Heh THE BELL That NS ANS THAT™ 
He E of eRe 
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THAT ee Met tea HIbL CONTINUE ues LONG 
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CONTI ME THE ERROR 


ao 
Is erie LL Cree place ae Mierat 11 
IS ae Sere Ba! —, IT IS RECOMMENDED 
THAT SWITCH 11 i C3 ALS 
NOTE: ALSO SEE SECTION 8.3 
SA mA SPECIAL Si TAL eS N a? TCHE ba 7 
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Car wae oe nate ONE Ror gi 
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328 E HE x ERROR THAT THE Most eur DETECT S IN A SUB 
5 FC te MH ei NE he 
333 RS . é EOsPake aesuct ONLY”, Hat Fe IF CITCH 
333 a Is NOT SET_AND SHITC Pete: ot N ON ECC TESTS (TEST 
334 120 THRU TEST 134) INSTE COMPARING CONTENTS OF THE 
3c CORPAAGS RICE ONLY BE DONE AT THE END OF ALL THE CLOCKS.” 
337 
335 
346 NOTE: ALSO SEE SECTION 8.3 
345 
344 SWITCH 7 - STOP FURTHER COMPARES IF SWC8 IS LOW. 
a7 If WITCH e nS T BNO TH ve 18 ALSO ont THE N THI HIS 
sf Rang Setter ec SIENA le satbes 0 vt 


Fi PED OBe The oer peas Tatttours 


noaSaRS 
ee 


F asin sa iF TM cbt “ar 7 WITH Sat 
366 Net bet ee oUF AAPOR BSE oleh 
354 Te Stee! TI P PRINT THA SWITCH 7 AFTER BEING SET FOR 
356 AGAIN LE, PAINT INTI au i P  OFRER DATA ERRORS 
ee Piast 7’ ant EDR SSPVE "HOU Se eRe rfc 
360 SHTTCH CIVES NUPIBER ro ON AS INDICATED 
3ee fe etait on or THEN ON EC ree ote Crest 120 120, Te on 
364 heist TERS ReTER EVERY CL cio cK, ¢ ARE ee wie B one. 
ze w Sant 
367 5.2 SUB-ROUTINE ABSTRACTS 
28 SEE SECTION 9 “SUBROUTINES” 
371 6.0 ERRORS 
stg Sedat rae Se eee ee 
375 THIS WET ORMAT SON TS OF RELEVANT RPOY 
376 REGISTERS OR IF THE ERROR OCCURRED IN A 
37; SUBROUT INE SUBROUTINE CALL IS ALSO 
378 GIVEN. REFER HE 55 or re ISTING AT THE STATED 
22 ADDRESS TO EE TERMINE THE CAUSE OF THE ERROR. 
361 6.1 "FATAL’ ERRORS 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
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CONTR R, P CERTAIN. CRITICAL STATUS BITS 
arn Eck EARED prion’ 12. TO T T OF A TYST SEQUENCE - 


tk Pit RING CATED TO THE OPERATOR. IN 
ates “ie Y te by HE PROGR aM Wi LL HALT. 
HE OPERA ATOR 
ES 4 eeConr Rue Paeire 1A al 
bee Cye THe i rs he RYT BR 
i. an QR_ THE *HALT’ 
Is TI TWO WORDS 
ttre ROP? WITH TTY ERROR 
PRINT hs inet aes f SCOPE LOOP CAN BE INITIATED 
OR THE TEST IN QUESTI 
e. GO BACK AND RERUN DZRPS AS IT IS QUITE POSSIBLE 
HAT AHARD FAILURE HAS OCCURRED IN ONE OF THE 


T 1S P30 ROsSieLe TO ae Pa FROM pots atl POINT, BUT # ae 


S NOT LOWING TE WILL EXHIBIT T 
SAME SYMPTOMS AND GIVE MISLEADING ERR INTOUTS. 
RESTRICTIONS 
IF THERE 15.8 A PRI CONNECTED THEN THE OPERATOR MUST HAVE 

DRIVE POR rent ih OCKED EITHER ON PORT A OR PORT B 

But ne yeERVE TT OGRAMMABLE STAT STATE. IF THERE 

1 NO t NT ey Fei Y GOING FROM 
DCL TO THE ct Pust BE Be  BRobe TERMINATED. 


Tr fuer le 7 Say AN RH70 CONTROLLER AND 
Fhe och eon RHi1 CONTROLLER. 
Of THIS ANNOT BE_RUN IN CHAIN noe 


Ma #4 aN areR AS THE ROUTINE WHIC 
aris it NTH Pen nage’ Sure SETTINGS IS NOT OPERABLE WHEN IN 


MISCELLANEOUS 


EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL Te 1.75 MINUTES PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 7 MINUTE. 


STACK POINTER 

THE STACK IS INITIALLY SET TO 1000 

OPERATOR SELECTABLE SCOPE LOOPS 

HERE IS A Tare a Tate SA or. HOW THE LOOP ON ERROR WORKS. 
FOR eT OF THESE LOOPS, HIT con TROL 
C oe OF Ine. euMILe PROGRAM “iS GUNN yor NG. ON HITTING AN ERROR 


IF T SET, THE PROGRAM GOES BACK 
- USUALLY “BACK To" Pre SBE INNING OF’ THE TEST 
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440 
a2 WHEN pitts 0 RATOR Gabk 6 con Be eke LOOP IS USED THEN THE POINT 
443 ‘is STRICT POINT WHERE THE PROGRAM CAN GO ARE: - 
444 abies: id poe test R CONSIDERATION 
446 ey t N THE ee Tet IDERATION 
qu? nares T CONSIDERATION 
448 ON. fay IF LOOP ON 
449 TEs T SH TCH eat 3 OPERA OPE ATOR On SELECTARL E SCOPE’LOOP IS USED 
469 Sky L uf BACK TO O THE SELECTED POINT GHEN IT 
ma ORES Ty T EST UNDER CONSIDERATION. 
453 AFTER AFTER LOOPING FOR IF THE LOOP SWITCH IS PUT DOWN THEN 
454 ION WILL CONT NUE. 
456 8.4 PROGRAM REVISION HISTORY 

¢ 
458 
458 5.0 PROGRAM DESCRIPTION 
461 THE FOLLOWING SECTIONS DESCRI ACH TEST AND SUBROUTINES 
462 IN DETAIL AND CAN ALSO BE D INDEX TO THE LISTING. 
463 HE LEFT MOST COLUMN IS LI R WITHIN THE LISTING 
464 T ITEM WILL BE FOUND. 
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488 


430 -SBTTL STARTING ADDRESSES 
4 00 
4 oo020c seevieia 017356 RA: sb QSBEGIN ;NORMAL START 
495 000204 000137 051410 ADDMOD: JMP @sBASECH ;MODIFY DEVICE PARAMETERS 
437 000210 900137 017346 IMP QeBEGINE ;SELECT DRIVE START 
* 495 
500 _! 
501 ; #STARTING ss FOR NORMAL STARTS 
poe :#THIS WILL TEST ALL *S ON THE SYSTEM A SINGLE ORIVE AT A TIME 


04 ;*STARTING ADORE WILL LOAD NON-DEFAULT PARAMETERS 
;#AND AUTO RESTART AT 200 RE TER LOADING PARAMETERS. 


;#STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


ee 8 XLS, 


001110 


CTRLR 
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SEQ 9013 


C + et weer 


CERI 


bo re 


NOW £Wte 


te 


1856 
Boies 


001246 
001250 


a. + 5c TUL? MACY11 Ou 


Bosei 


61476 cee 


OSe2e21 
010463 
012350 
012666 


002221 
010246 


002221 
010056 


; ITEMI1 


; ITEM2 


; ITEM3 


; ITEMY 
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SEG 9014 


ie, ee DATA IN READING OR WRITING HARDWARE REGISTER 


} 
eg REGADR, SGDDAT , SBDDAT 
, 0,0 ,0 


;ERROR ON DATA COMMAND 


NM, ERWORD, $GDDAT,CS1,0S1,ER1 


;ERROR ON DATA COMMAND 


;PC 

iP ¥ JSR 
; NO. 
8 8 bare 


+ BON Ta 
ONT NT OF pay 
jal OF RHDS1 
NT Nt OF Rl 
wae Mt STI#, ERUORD, SGOONT , SEOOAT.CS1 O51, Gs 
’ ,0 , , 


;ERROR ON DATA COMMAND 


PC 
TEST NO 
DB NO. 
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CZRIHB.P11 10-NOV-77 11:36 ERROR POINTER TABLE SEG 0015 
5&7 ;GO0D DATA 
568 ; BAD TA 
9 ;CONTENTS OF RHCSI 
283 :CONTENTS OF RHDS1 
37 :CONTENTS OF RHER1 
56 001262 012302 0T31 : SERRPC STSTNM, ERWORD, SGDDAT, SBDDAT,CS1,0S1,ER1 
o74 001264 012645 OF 31 :0,0,1,0,0,0,0,0, 
57 
258 
258 ; ITEMS 
001266 gg0000 0 
28? BS 1533 B99989 8131 : SERAPC STSTNA, ERWORD, SGDDAT , SBDDAT,CS1,0S1,ER1 
S82 001274 012645 OF 31 1,0,0,0 
583 
2Be ; ITEMG 
58g 001276 oo2250 F EM ;ERROR ON WRITE HEADER AND DATA 
588 001300 010246 DH32 PC 
se SR 
286 FES? No 
591 : 
5% Be 
oa ONTENTS OF HCS1 
a3 SSUES & Rl 
598 001302 012324 T RRPC, PCISR, STSTNM, ERWORD, SGDDAT, SBDDAT,CS!,0S1,ER! 
599 OO1304 012655 bras faa 1°578F 05 0,0, 
601 
pas : ITEM? 
604 001306 o02250 P EMG RROR ON WRITE HEADER AND DATA 
605 001310 o05567 He iP rest ng 
607 
p03 001312 ol12012 DT3 a ERWORD, $GDDAT, SBDDAT 
611 OO01314 Olese7 OF3 ;0,0,1,0 
612 
613 
614 ; ITEM1O 
Ele 601338 ate = ; 
617 OOl3e2 di201e p13 : SERRPC, STSTNM, ERWORD, SGDDAT, SBDDAT 
618 001324 Olese7 F3 ;0,0,1,0,0, 
eS; ITEMLI 
G22 C0122 002207 5 EM11 ;CONTROLLER OR DRIVE STATUS 
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001372 012070 
001374 O1e553 
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; ITEM13 


; ITEM14 


;ITEM1S 


; ITEM1E 
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;PC 
ST_NO 


TES 

sFATL ue of Be RAS 

s ne & ae at 

SER it Tn R,CS1,CS2,051,ER1 


4 ’ 0,0, 6,0 0,0 


;WRONG DATA FROM SILO 


REG. 


TA 
$ G00 IVED DATA 
! SERRPC , REGADR, SGDDAT , SBDDAT 
:0,0,0,0 


; SERRPC, TSTNM, REGADR, SGDDAT , SBDDAT 
:0,0,0,0,0 


sREGISTER FAILED 
aN OFF FAILING REG. 


CONT NT R 


ig T NT RHER1 : 
, SBODAT,CS1,CS2,0S1,ER1 
,0,0, cS 0,0,0 


iBROoGran FIED REG. NON EXISTANT SO ABORT 


OR. OF REG 
is RRPC, TEMP 1 


sHATT LOOP FAILED 
; 


;WAT PC 
;BIT WANTED 


SEG OO16 


NNANNNNNNNNY 
Dw 


NNNNNNNNNS 
Oe 
WONOTW CWE O 


tw 
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7ee 
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; TTEM20 


; ITEM21 


; ITEM2e2 
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;REG. ‘ 
:REG. CONT. 

:SERRPC, STMP3, STMP1, STMPO, SBDDAT 
:0,0,0,0 


;WRITE CHECK FAILING 


PC 
; TEST _NO 

:CONTENTS OF RHBA 

: CONT NTS OF RHOB 

:CONTENTS OF RHWC 

;CONTENTS OF RHCS1 

:CONTENTS OF RHCS2 

? SERRPC, STSTNM, $8A,DB,WC,CS1,CS2 
:0,0,0,0,0,0,0 


;REGISTER FAILING 
:PC 


; TST_NO 

ONTENTS OF RHERI 
ONTENT RHERe2 

ONTENT R3 

ONTENT RHAS 

ONTENTS HOS 1 

ERRPC,T ER1,ER2,ER3,AS,DS1 


§ 
:C 
3C 
i§ 
;0,0,0,0 


,0,0 


| | ila tataaatel FAILING 


EST _NO 

ONT aL OF RHCS1 
ONTENTS OF RHAS 
ONTENTS OF RHOS1 

ERRPC, TSTNM,CS1,AS,DS1 


sT 
3¢ 
3C 
, 
:0,0,0,0,0 


SEG 0017 


ae 


é 


001452 
0014S4 


001476 
001500 


o0C1s0e 
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012172 
012606 
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oooocd 


Ol1ee04 
Olecble 
002307 
007362 
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OTee 
DFee 


; ITEM23 
0 


DOTee 
DF 2e 


; ITEM 24 
EMe4 


DH2e4 


OTe4 
DF e4 


; ITEM 2S 
EmMes 


DHe4 


DTe4 


OF e4 
; ITEM26 
EM11 


DH2E 


OT26 
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; SERRPC, TSTNMS , SGODAT , SBDDAT 


:0,0,0,0 
;MISSHATCH IN DRIVE PRESENT 
AT RHAS AND RHCS2-NED(BIT#l2) 
bly "PRESENT 0 DO NOT AGREE 
i 777 T PRESENT 
Fest NO 
:RHAS UNIT 
:RHCS2 UNIT 
 SERRPC TSTNM$, SGDDAT , SBDDAT 
:0,0,0,0 


;LOOK AHEAD REGISTER AT THE 
BEG TRNING OF A SECTOR IS IN 


+ HST 
BAD RHLA 
:GOOD RHLA 
i SECTOR NO 

;SECTOR CLOCK 

: SERRPC, DST, SBDDAT, STMP1, STMP2, STMP3 
'0.0,0,0,0 ° 


500K AD REGISTER IS 
;IN ERR 


, 
, 
; 
’ 
’ 
; 
4 
° 
us 


;PC 
;RHOST 
;BAD RHLA 
5208 RHLA 
i SEE OR NO 
ECTOR CLOCK 
;SERREC DST, , SBODAT, STMP1, STMP2, STMP3 


;CONTROLLER OR DRIVE STATUS 


N 
S CONTENTS OF RHER1 
; SERRPC,PCJSR, $BOADR,CS1,CS2,0S1,ER1 


SEG 0018 
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H8.P11 10-NOV- ERROR POINTER TABLE SEG 9019 
731 OO1SO4 012621 DF 26 ;0,0,0,0,0,0, 
793 
794 
795 ; ITEM27 
eae 001506 002136 EM1 ;ERROR IN READING OR WRITING HARDWARE REGISTER 
798 001510 007560 DH27 sc 
799 PC OF JSR ISR 
800 : TES MBER - 
801 FAI ING REGISTER 
892 DATA 
B03 SRECEIVED DATA 
805 oO01512 ol1224% D127 ; SERRPC ,,PCJSR, TSTNM, REGADR, SGDDAT , SBDDAT 
806 001514 O12631 OF 27 :0,0,0,0,0,0 
808 
gos 
810 ; ITEM30 
811 001516 003276 —M30 ;CURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 
812 001520 007716 DH30 :PC 
813 :PC OF JSR 
814 :REGISTER ADDRESS 
81S :GOO0D DATA 
616 :BAD DAT 
818 oO01S22 oO12264 DT30 ; SERRPC ,PCJSR, REGADR, SGDDAT , SBDDAT 
815 001524 BiSé83 DF 30 :0,0,0,0,0 
B21 
Bee 
B23 ; ITEM31 
824 OO01S2 0103420 EM31 ;ECC GENERATED IS INCORRECT 
Bes tEVERY WORD IN THIS SECTOR IS GIVEN IN “DATA USED” 
827 O01530 o1066e DH34 
828 est NUMBER 
829 :GO0D ECC1 
830 : G00 Cec 
831 WRITTEN ECC1 
B32 :WRITTEN ECCe 
833 :DATA USED 
B35 001532 012372 DT34 ; SERRPC, TSTNM, GECC1, GECC2, WECC 1. WECC2, DISK 
837 901534 912676 DF 34 ;0,0,0,0,0,0,0 
839 
840 ; ITEM32 
684i 001536 003542 EM32 N READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
B42 as ISTER OR RHER1 IS IN 
B43 i ONLY OWER 11 BITS OF baTteRN' REGISTER 
B45 :THIS SHUOLD MATCH LOWER 11 BITS OF ECC! 


CZRJHBO,RPO4’S’& OSKLS CTRLR2 
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001S40 011035 


oois#e Ole4ile 
001544 012705 


001546 o0403e 
001880 Olle3e 


ocisS2 012434 
001SS4¥ 9012715 
OO1SS&é 004104 


O01s60 011232 


001S62 012434 
001564 012715 


OO1SE6 004177 


00:570 011370 


MACY11 30( 1046) 


; ITEM33 


; ITEM34 


; ITEM3S 


10-NOV-77 
ERROR POINTER TABLE 


DH3S 


DT35 
DOF 35S 


EM33 
DH36 


DT36 
DF 36 
EM34 


OH36 


DT36 
DF 36 


EM3S 


DH37 


11:46 PAGE 20 


Test NUMBER 
B08 KK 

#6000 

sonrit N REGISTER 


;R 


; siete TSTNM, GECC1, GECC2,EC2, ERI - 
;0,0,0,0,0,0 


1 Sa COUNT BIT NOT HIGH AFTER 38859 CLOCKS 


feaf wl Jone 


POST ION REG. 
post Tze REGISTER 


; SERRPC,PCJSR, TSTNM,MR,EC1,EC2 

;0,0,0,0,0,0 

;ZERO DETECT BIT NOT HIGH WHEN THE 

fi “Zeng ECC REGISTER HAS ITS 21 BITS 
PRINTOUT WILL CONTINUE TILL 

ZERO DETECT BIT IS HIGH 

Feo WORBER 


iPOS TION REG. 
;PATTERN REGISTER 


; SERRPC,PCJSR, TSTNM,MR,EC1,EC2 
;0,0,0,0,0,0 


PR REGLSTER OR BITS oF 

CER SHHS"GF JBHTEREdeczsre 
BITS OF GOOD ECCl 

;DATA ENVELOPE AND N- tobe ZEROS ARE IN DECIMAL 


; TEST NUMBE 
;ECC POSIT 
;GOOD POSI 


R 
ION 
TION 


SEG 9020 


3093 


CESS LL LL LLL D O0Ow 
bh 
—-OWONOU CWO 


wees 
wr 


nc aet EP 


Pll 


001S7e 
001574 


001576 
001600 


001602: 


001604 


00160é 


001610 


04”S“6 OSKLS CTRLRe 
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012e4Se2 
012723 


004476 


011035 


012412 
cie7os 


OO4E64 


010050 
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; ITEM36 


; ITEM37 


; ITEM4O 


10-NOV-77 
ERROR POINTER TABLE 


DT37 
DF 37 


EM36 


DH3S 


DT3S 
DF 3S 


EM37 


DH31 


21 


SEG 0021 


100 Ecce 


ee ENVELOPE 
-CODE ZEROS 


{SERAPC, TSTWM,EC1 ,POSITI, GECC1, GECC2, EC2, DATENV, 2C008 
;0,0,0,0,0,0,0,0,0 


;O0N A READ COMMAND WITH NON CORRECTABLE 
er INSERTED OCK AND ECH SHOULD BE SET 


GIST 
iia 


SERAPC, TSTNM, CECC1,GECC2, EC2,£C1 ER 
;0,0,0,0,0,0,0 


;ERROR ON DATA COMMAND 
:WITH Al6 Al? USED 


OF RHCS1 
TENTS OF RHDS1 
S CONTENTS OF RHERI 


;SERRPC, STSTNM, ERWORD, SGDDAT, SBDDAT,CS1,0S1.ER1 
:0,0,1,0,0,0,0,0, 


 SERRPC, STSTNM, ERWORD, SGDDAT, SBDDAT,CS1,0S1, ER! 
:0,0,1,0,0,0,0,0, 
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CZ2RIHB.P11 10-NOV-77 11:36 ERROR POINTER TABLE SEG O0z2 
959 
960 
961 
362. : ITEMY1 
963 001626 004752 EM4O ; THERE WAS A READ/WRITE HEADER & DATA 
964 tERROR DURING "DTE’ TEST SETUP - T 
96S :TEST IS ABORTED AT THAT POINT 
966 001630 011607 DH4O :PC 
? i TEST NO 
968 FA LING REGISTER ADDRESS 
969 :CONTENTS OF RHCS1 
370 i CONTENTS OF RHCS2 
71 :CONTENTS OF RHDS! 
37 i CONTENTS OF RHERI 
873 0016832 01247 DTYO : SERRPC, STSTNM, SBDADR,CS1,CS2,0S1,ER1 
874 001634 012734 DF4O :0,0,0,0,0,0 
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HB.P12 10-NOV- ERROR POINTER TABLE SEG C023 
97S 
976 ; ITEM 42 
877 001636 o12744 Em4e 
go8 Bo teas 14e38 pels ERROR PC, TEST NUMBER, REGISTER ADDRESS 
Se) po teds §BiySss Bras a . ; . 
382 ; ITEM 43 
983 
984% 001646 013027 M43 
38s pp ieeg 14410 DH4e 
986 O016 14672 OT4e ;ERROR PC, TEST NUMBER, REGISTER ADDRESS. 
987 001654 14730 OFY42 
3e9 ; ITEM 44 
gay D016S&6 013073 M44 
332 001660 O1447 Brad 
393 D0 1662 147 DT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
Sac 001664 014733 OF44 
aes ; ITEM 4S 
33 001666 0131 EMYS 
a6 teed 014471 DH44 
167e 014702 DT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
i 001674 014733 OF44 
ines ; ITEM 46 
1Dba 001676 13157 M46 
1005 abeaed yea aa 
1 ap taed Bice T4H4 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
t 0017 147. ayy 
1009 : ITEM 47 
1p10 9001706 013206 M47 
ark 00i710 014410 Bz 
101 Bai sts 01 ia 3 OTY ;ERROR PC,TEST NUMBER, REGISTER ADDRESS. 
inte 1714 O14 DFY¥e 
1518 ; ITEM SO 
ibie 001716 13243 EmMSO 
10193 BB1 eB Bt aesy DH44 
ine? pei zes Bhs DT44 ;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
ise 17 0147 DF44 
102 ; ITEM 
1 001756 Bi 3301 pred 
1 ot es 014702 OT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1028 1734 014733 DF 44 
1023 
1030 : ITEM Se 


LOe 
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ESRINE Pll 1O-NOV=E7 “11756 SERROR POINTER. TABLE SEG o024 
3 


1031 
10. 17. 13322 MSe 
1033 50 1538 Olas 44 
1 001742 O147 DT44 
ie 001744 014733 DF 44 
iba? ; ITEM S3 
1039 yb O13 MS3 
1040 1 14471 4 
Hat | 00i7S2 14702 DT44 ;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
in 001754 14733 DF44 
1043 
1044 ; ITEM S4 
104S 
1046 001756 013422 EmMS4 
a4 001760 265) DHS4 
1 001762 014716 DTS4 ;ERROR PC, TEST NUMBER. 
1049S 001764 014740 DFS4 
1050 
ivet ; ITEM SS 
1 i? MSS 
105 guI766 DLE! eNss 
Hees 001772 01470e DT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1088 001774 014733 OF YY 
1058 ; ITEM 
10s9 sedis 
1060 001776 013474 EMS6 
1061 O02000 014471 HY 
1062 gg200e 014702 THY ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1s: 014733 DFY4 
1065 ; ITEM 57 
ibe 013511 MS7 
107 Bosois oraaet By 
1069 O02012 014702 OT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1570 14 014733 DFN4Y 
i878 ; ITEM 
io? ITEM 60 
1074 1 013540 EN60 
1075 014471 OH44 
1076 2 014702 OT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
ee 002024 014733 OF44 
1079 ; ITEM 
{pay poetes 013627 my aan 
1 014471 DHY4 : 
ies 002032 014702 OT44 ;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
i Bee 002034 014733 OF 44 
s 
i086 ; ITEM 62 


CZRJHBO,RPO4/S“6 OSKLS CTRLRE@ MACY11 30(1046) 10-NOV-77 11:48 PAGE eS . 


CZ2RIHB.P11 10-NOV-77 11:36 ERROR POINTER TABLE SEG 062s 
1 
1 002036 013677 EMb2 
1089 O0204O 014471 DH44 
10390 OO2042 014702 DT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
i 002044 014733 DFY4 
} ; ITEM 63 
1 002046 013754 EM63 
1098 OO020SO 014471 OHS4 
1037 ooe0S2 014708 OT44 ;ERROR ‘PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1038 0020S4 0147 - DF44 Z 
1 ‘ 
1100 ; ITEM 64 
1101 
ll oo20sé 014032 EM64 
1163 002060 014471 DH44 
1104 O02062 014702 _ OT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1108 002064 014733 OF44 
11S ; ITEM 65 
1188 002066 014066 EM6S 
1110 002070 recat OH44Y 
1142 002076 0147 DT44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
Lite 74 0147 DFYY 
i114 ; ITEM 66 
1115 
1116 002076 014150 EMGE 
1117 962 10¢ 014471 pee 3 
1118 102 014702 T44 ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
1119 002104 014733 DFY4 
1120 
1lel ITEM 67 
ll2e2 
1123 002106 o1ueee EM67 
1124 Od 119 1 4 
il D0211 14 is TS4 ;ERROR PC, TEST NUMBER. 
it 002114 0147 4 
i ITEM 70 
11 D021 014307 EM70 
il 308128 B1eo3 CHSY 
11 002i 14716 OTS4 ;ERROR PC, TEST NUMBER. 
1 124 014740 OFSY 
11 
il 
11 
ll 
11 
li 
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xe 

?o 

£ 


4 
706 ‘ DT44 ;ERRCR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
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E POINTER TABLE 
5 0 0 AE aE a aE aE A a a ga a a a a Ha EES 


! ERROR AND MESSAGE TABLE CONDIMENTS 
Peetiiiitititiitttitititittiiiiiiitititiiitiiititieriiiriiittrirrt tit? 


EM1: -ASCIZ /WRONG DATA IN READING OR WRITING HAROWARE REGISTER’ 
EMe: -ASCIZ /ZERROR ON DATA COMMAND’ 

EM6: -ASCETZ /ERROR ON WRITE HEADER AND DATA’ 

EM11: -ASCIZ /CONTROLLER OR DRIVE STATUS/ 

EM14: -ASCIZ /REGISTER FAILED/ 

EMIS: -ASCIZ /NON EXISTENT REGISTER, PROGRAM ABORTED. / 

EM16: -ASCIZ /WAIT LOOP FAILED/ 

EM17: -ASCIZ /WRITE CHECK FAILING’ 

Em2o: -ASCIZ /REGISTER FAILING’ 

EMe1: -ASCIZ /INTERRUPT FAILING’ 


SEG OGee 





ss 


Bs & 


a i 


lake ehed leet 
aos 
oO ~— 


be Bae be Bs Be Be Be Be ee 


mururururofururu: 
| be be fe ae bee ne ne Pw 


un DONO SW 


Nohotoruhonohonstehehohohene 


ir 
Ww 


SORT OPEN 


rutuhatptpipryrptyrpiphprprororarurirunorery 
Wrue- 


fake eee 
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Pil 1B-hoves7 Hee 4 spi Ae POINTER TABLE SEG 0027 
107 . 
9 EM22: .ASCII /ERROR ON DRIVE PRESENT/<15><12> 
a -ASCII /THE UNIT NO’S FOUND BY SETTING RHAS/<15>< 12> 
is 
16 
3 
7516 .ASCII /DO NOT AGREE WITH THE UNIT NO. FOUND FROM/<15><12> 
1 
40 ° 


egos -ASCII /RHCS2-’NED’ BIT #127¢15>< 12> 


3 
f -ASCII 7177777-MEANS NO UNIT FOUND/<15>< 12> 
0 


-ASCII /NOTE: ON DUAL PORT SYSTEM, DRIVE ON OTHER PORT WILL NOT GIVE/<15>< 12> 


-ASCIZ /’NED’, HENCE THERE WILL BE AN EXTRA DRIVE’ 





01 
2 


R 


EMe4: -ASCIZ /LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/ 


Bones & 





— te 
vite 
Moe 


CO3 
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3 elioe ie Ded Me 


a 


EmMeS: -ASCIZ /LOOK AHEAD REGISTER IS IN ERROR/ 


BF 
i 
= 
R--Ly 

= 


RoR? 
ee 


Bae EM30: -ASCII /CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGIHSTER/<15><1a> 
0 


oe 


Oh he ee ee 
to be 
co 
o 


RERKR BARAK aes capt 


zie 

- 

w 
—co- 

es 


1 
1 
3 agebs -ASCIZ /AFTER A SEEK AND INIT/ 


2507 EM31: -ASCII /ECC GENERATED IS INCORRECT/<1S><12> 


-ASCIZ /EVERY WORD ON THIS SECTOR IS THAT GIVEN IN “DATA USED”/ 


-_— 


jo CMe 

OREN 
oO fe 

or 

= 

-O~ 


EM32: -ASCII /ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ, 7<15>< 12> 


ee 

oO~ 
=u N 
Se 
— 


-ASCII /ZECC REGISTERS OR RHER1 ARE IN ERROR’<15>< 12> 


ie 
Use tety 


ete 


Ruiz 
Be 
Puro 


& 


-ASCII /ONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ“<15>< 12> 


he ee Be hs he Oe Be Os ee he Be be se se a ae ae ae ee ne ee ee Be Be Be ee 


BOR RED RC CREME R TOR ESE SR REN R 


8 

WwW 

N 

J 

o 
Mer 
- NT 
299 
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tue 
Ono 
aRR 
moO 
be bebe 
TUG) 
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ll 


cama OSKLS CTRLRe 


CZRJHB. 


“¢1S><le@> 


“ZERO DETECT SIT NOT HIGH WHEN 3e BIT ECC REG. HAS 21 ZEROS/ 
/POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15>< 12> 


“LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER 


“THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECCI” 


-ASCIZ /HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS” 
711 BITS OF GOOD ECC1/<15><« 12> 


oN N coal 4 ma 
oO oO oO oO oO 
L*) 
w uw w 
a z a y & 
ru) Pa 
bi ] - 5 
= = = 
ta Ww Ww 


=U 3M =O Dt 
82929 BSPEoy Bese 
T= wnaTa 
eo digas z82 
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27 apcesnen vasa aur naa: amas aaasz® 
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7ON READ COMMAND WITH NON-CORRECTABLE ERROR DOCK AND ECH SHOULD BE SET/’<1 
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-ASCIT 


EM36: 


wNrNRuTrorM 
UY FO 


Leen 


7IF POSITION REGISTER =10040 OR 10041 IT IS GOOD/ 


-ASCIZ 


-ASCIZ /WRITING WITH BUS ADDRESS HIGHER THAN 28K CAUSED ERROR/ 


EM37: 





4¢15><1e2> 


OTE’ 


/THERE WAS A READ-WRITE HEADER & DATA ERROR DURING 
/TEST SETUP - THE TEST WAS ABORTED AT THAT POINT~ 


ASCII 
-ASCIZ 
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-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIZ 


/PC 


7PC 


/PC 


11:48 PAGE 33 


NO 


TEST 


NO 


TEST 


NO 


TEST 


NO DATA 


FAILING CONT. 


REG ADR RHCS1 


FAILING CONT. 


DATA’ 


CONT. 


RHCSe 


CONT. 


REG ADR BAD REG RHCSi 


REG AOR’ 
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ssoe Rt 4875 statatatata 017330 O4SS30 OTe: -WORD SERRPC,TSTNM,REGADR,O 
2209 014702 001116 017330 O45530 DT44: «WORD SERRPC, TSTNM,REGADR, SGDDAT , SBDDAT ,O 


setf tart BITE B09385 BQRESB psy: WORD SERRPC, TSTNM,REGAOR, SGDDAT, 0 


14724 


IO4 
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18-NoVv- 7 OR POINTER TABLE SEG C047 


000 000 OOO ODFYe: -BYTE 0,0,0 
000 poe OOO DF: -BYTE 0,0,0,0,0 


8] 
lat 00 Ooo OFSY: -BYTE 0,0,0,0 
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O04 


PAGE 48 
FINITIONS 


-SBTTL HARDWARE REGISTER BIT DEFINITIONS 
;RH11 REGISTERS 


;WORD COUNT REGISTER (RHWC) 
;EACH BIT IS CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
;EACH BIT IS CALLED BY BIT NUMBER 


;CONTROL AND STATUS REGISTER 2 (RHCS2) 


USiz 1 ;UNIT SELECT 
uses iB SUNIT SELECT 
ued= 4 tUNIT SELECT 
AI= 10 5 peat 
ATs 20 INVER T 
CLR= 40 CLEAR (BIT 
iR= 100 ‘INPUT READY 
OR= 500 ‘OUTPUT READY 
me: «100 MTSSED tT 

= ; 

= 00 + PROGRAM E 
NEM= 4000 tNON EXISTANT 

D= 10000 {NON EXISTANT 
UPE= 20000 {UNTBUS PARTT 
WCE= 4000 WRITE, CHECK 
Offs «1 p80B0 iDATA LATE ¢ 


;OATA BUFFER REGISTER (RHDB) 
;EACH BIT IS CALLED BY BIT NUMBER 
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w2Zzeewv 
wa 


an 


“3mSh-~B<o 
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Nw 
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ee a 

TAB" 2 Does BMUNO 
2-5" 8S 

H-O-e 

4+qD+WO 


SEG 0048 


SEG 0049 


KO4 
(#00) 


748 PAGE 49 
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;CONTROL AND STATUS 1 REGISTER. 
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HARDWARE REGISTER ert DEFINITIONS 
;RPO4 REGISTERS 
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;STATUS REGISTER (RHDS1) (#01) 
;MAINTAINABILITY REGISTER (RHMR) (#03) 


foo Ee Eee 


260 
seee 
2e6b4 
ects 
226 
2267 
2268 
2cé3 
2e70 
2271 
2ee7e 
2e73 
2e74 
2e75 
ee76b 
ee7? 
2278 
2e79 
2280 
2281 
2e8e 
2283 
2284 
228s 
Ba 
2288 
2c89 
2230 
2291 
e 
2233 
een 
ee9s 
ec3t 
2237 
2ec38 


FISNIE BSN BTS 
UMMOMMOMMOMMOME 


mucurucutuCuCufufutucuT 


SEG OCSo 


9! 
#8) 
Y SYNC DETECTED (BIT #9) 


92 


;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (804) 


C 
L 
L 
L 
L 


ILI 


OLeereane 


LOY 


MACYAL SHARDWARE REGISTER BIT DEFINITIONS. 
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CucucunucucunuCucucurutufucunms 


RAR RRRRA 
O-UMT Wor 
BSa2ana2a2a 


ol ee 


eee eee we 
o-uMsTwwoT 
Wil 


OVOO0000 
eet 


>>>>>>>> 


BBaaaaaa 


RAN 


e327 
2328 
2329 


GISTER (RHDST) (#1) 


BE 


S CALLED BY BIT NUM 


CTOR/TRACK ADDRESS 


;LOOK-AHEAD REGISTER (RHLA) (#807) 


;ORIVE TYPE REGISTER (RHOT) (#06) 
; EACH Bly 1s CALLED BY ETT NUMBER 


_ 


mun 


@Onmmn---—-— 


40-40-0044 Youu 
ninininin Ratatat 
Wpibanttthancdibconnenenanat 


sux oncasssssaas 
a 


eee adac cate ata 


SUCUCUCUCUCU CUCU CUCU CucucuCunucunu cucu cufuqutucucucurufunuducutu 
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367 100000 
33ca 

2369 

37 

38 

7 
373 
374 1 


“I 
Ba 


2386 

2387 

2388 

5383 
000004 
000040 
000200 
002000 
Bian00 


YP PPP PPP EU EEN TTY 
SRRSOROS BEI R 89 382 


Be 


Pesta para aa sata ata 
— bp b= = pe 
CONMU EC Wl-O 


Tv 
fe 


MACY11 30(1046) 10-NOV-77 11:48 PAGE Si 
HARDWARE 


REGISTER BIT DEFINITIONS 
TRK20= 100000 ; TRACK FIELD S (BIT #15) 


;ERROR REGISTER #2 (RHER2) (#10) 


wus ;MRITE CURRENT UNSAFE (BIT 40) 
CSk=B ic Sink F Oe #1) 
au: ae Tad Sage AT 
CSUs «10 ; CORRE ToH UNSAFE (BIT 83) 
st + TEeTOR ERILURE (BIT #5) 
TUF = ale iT T E (BIT #6) 
FEN: $86 ial (BIT #7) 

U= 406 WR E (SIT #6) 
MHS= 1000 ‘MULT HE CT (BIT #9) 
NHS= 2000 : PD Sete 1f9N (BIT #10) 
Ixe= 40 t INDEX (BIT #11) 
VU30= 0  S0VOLT (BIT #12) 
Peas 20900 1BLO UNSBre 474135 

i. 3 : — (Bit #15) 
OFFSET REGISTER (RHOF) (#11) 
SreR= A iOFFSET &8 HEERS INEHES (BHT st) 
Of 100= Sere es fetes att 42) 
grape: 38 iOFERET GBA HicRO INCHES (BIT #4) 
OFBO0= 40 ‘OFFSET 800 MICRO INCHES (BIT #5) 
OFREV= 200 OFFSET NEGATIVE (REVERSE) (BIT #7) 
HCI= 2000 EOE SRRECT INA ET Mot ort cart #11) 
Fatze. 18e60 + PORMAT times $n 459° 


LINDER_ADDRE 


S 
S CALLED BY BIT NUMBER 


win 
HO 

oO 
oie 


; (RHCA) (#l2) 


; CURRENT CYLINDER ADDRESS (RHCC) (#13) 
;EACH BIT IS CALLED BY BIT NUMBER 


‘PCH URE ED BY BIT NUM N) (#14) 


SEQ O0S1 


CZRJHBO,RPO4’S/’6 DSKLS CTRLRE 
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e423 
24 
es 
ee? 000001 
23 
at 00001 
Siss 000040 
5034 40000 
e435 100000 
2436 
2437 
2438 
e439 
2440 
e441 
e+e 
2443 
2444 
244S 
e4 


MACY) SHARDUBRE REGISTER BIT DEFINITIONS 


;ERROR REGISTER #03 (RHERS) (#15) 


PSU= i ; PACK SPE 
VUF = 2 : VELOCITY 
BRE: ag +B SK OPAC 
ACL= 40 7AC L 
i= 40D ork 
OCYL= 1pep80 i SEF 

sECC POSITION REGISTER (RHEC1) (#16) 
[EACH BIT iS CALLED BY BIT NUMBER 

;ECC PATTERN REGISTER (RHEC2) (#17) 

tEACH BIT IS CALLED BY BIT NUMBER 


) 
/WRITE (BIT #3) 
RROR (BIT #4) 


SEG COSe 
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eSRine eri S38 NOV-77 11:36 HARDWARE Agi ster BI BEF Int T TONS SEG 0053 
2447 

-SBTTL REGISTER ADDRESSES 


;RPO4/S/6 VECTOR ADDRESS 
014744 oo002e54 RPVEC: 254 ;RPO4/S/6 VECTOR ADDRESS 


Fe Se Teas ont Scheels nS The FE DIES 
Hire Routine E BRTS AT LOCATION T “BASECH™ 
T 


Fo} 
4 
m 


ia SEREEPRRR Sas EEE 


: 
3 
14746 617672 RHOB: 1767 ;DATA BUFFER 
BISreS eras Bee. eres Re se 
Biased 176710 RHCS2: 176219 STATUS 
bisres nee el: ieee : a, 2 
014760 1oESbe Bee: 176 OR 7 TRACK ADDRESS 
plies i7ersB mere zens i 
Biiree ieras Bees, fees Loan Maumee 
Si4774 176716 RHAS: 1 716 : ON SUMMARY SEE NOTE ABOVE 
14776 17e7e8 : ier >MA nf TLITY 
ples Ue Ber erie ae 
15008 130358 : 17b258 ; I R SEE NOTE ABOVE 
01 176744 R ci: 176744 sECC P ane 
plegle 17er36 Bu: Feb bre 
e485 015014 176736 RHCC: 176736 i CURRENT CYLINDER ADDRESS 
a t4 ; ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER 
2489 O1S016 176752 RHCS3: 176752 ;CONTROL AND STATUS REG #3 
2490 015020 176750 RHBAE: 176750 !BUS ADDRESS EXTENSION REGISTER 





K=- 
GRRENT. CYLINDER ADDRESS 
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2491 

533 OL GI SA le GA At 

249s :FOR THe TIME. JUST AFTER THE ” ERROR” E 

Re ot ef is BP 

3500 8} be3, & i BORTROL STATUS 2 

Se gf: sQQNTRO, AO STATUS 1 

soe OL DST: . i DESTRED_SECTOR/ TRACK ADORESS 

2508 O1 CA: 6 ap oor ADDRESS 

sei) i AR i MAINTA NAB TLITy 

sig ft Bis 8 iBelve per 

So ane a. 8 ee 

sie 015068 H00000 Ce: 0 tEEE tEAM 

e518 Bi : 8 ie 


: 


3 


che 


CROW ON UNOV OVO 
HO.bw Vd EWN OD 


ess$3 


“p 


ne a 


1811 
015114 
015116 
bisiee 
015124 
015126 


015130 


015132 


015134 
015136 


015140 
015142 


015144 


O1S146 


-NOV=97 


ae 


oo0000 


000000 


000000 
000800 
000000 
oooo00 


ooo000 


oo0cc0 


CTRLRe 
11:36 


maCrlt RELPAd 


;FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


UNITS: 
UNIT: 


NOUNIT: ; 


NUNIT: 


SELECT: “ 
UNITSL: . 


ERFLGS: 
SAVDT: 


SAVSN: 


PCJSR: 
ATTENT: 


TOTALAT: 


TMPILL: 
TSECC: 


TESDTE: 


TAGOTE: 


0 
0 


0 


oOo oO 


Oo 


-NOV-77 
DRESSES 


oo oO OOW 


11:48 PAGE SS 


THIS IS FILLED WITH -1 
UNIT UNDE ST 
R OF UNITS PRESENT 
TO Ke P TRACK UNIT UNDER TEST 
TO RMIN IF THERE ARE MORE 
UNIT TO BE SELECTED 


;ERROR FLAG 

ieORe DRIVE TYPE REGISTER 
Ae nT $508. a ORIVE CLEAR TEST 

NI 
ey compan R REGISTER 
OR C N DRIVE CLEAR TEST 

AND RH INI Pest" 

; SAVE PC OF JSR WHICH GAVE THE ERROR 


; ATTENTION BIT FOR PRESENT UNIT 
; TOTAL ATTENTION BITS 


; TEMPORARY ILLEGAL FUNCTION 


;FLAG TO SAY IF EC Es! OR_NOT 
;WHEN =177777 IT_IS AN ECC TEST 
;WHEN =OIT IS NOT AN ECC TEST 


;FLAG TO SAY IF Drive TIMING ERROR OR NOT 
WHEN = 1 77 IT +2 6. ors TEST 
;WHEN = 0 IT IS NOT A OTE TEST 


TEMPORARY TAG USED IN ORIVE TIMING 
i ERROR TEST 


SEG cOSs 


rittattattath 
DOVER 


asa 


10-NOV-77 11:48 PAGE S6 


O,RPO4’S’& OSKLS CTRLRE MACY11 30 ) 
R ER ADDRESSES SEG O0SE 


1046 
Pil 10-NOV-77 11:36 T 


( 
EGIS 


;FUNCTION EQUATES 


THEN” OF Cone 6 HU 
THEN “GO” BIT HAS TO BE S 


S_FOR RHCS1 
ET 


piet20 OPERA; NO OPERATION 

O1sis2 aan OAD: g ; Bab Cot BND BY) 

18156 t BELEAR: 10 OR IVE CLEAR 

Bi 168 uit RetEas; le >REL Sok (DUAL-PORT OPERATION) 

O1sies So0050 DRCHEK: &0 ORT TE CHECK DATA 

015166 RCH 52 jHRIT Che Ck HEADER AND DATA 

O1si7e Boobee WRIFOR: b :URLT HEADER AND DATA (FORMAT) 

1etSe 900072 REFOR.: 98 READ HEADER AND DATA 

B18205 000014 SEC a: 14 i SEEK OC OHNAND 

15204 O00016 RETCL: 16 IRETURNTO GENTE GENTERL INE 

15206 o00022 PKACK: 22 :PACK AC 

15210 O00020 READIN: 20 ;READ IN 

015212 oo00000 ILLEGL: .WORD :COMPUTED ILLEGAL FUNCTION 

;DATA BUFFER FOR READ WRITE 

015220 oo04e22 WRFROM: .BLKW 274. ;WRITE FROM THIS BUFFER 

016264 O004e2 REINTO: .BLKW 274. 'READ INTO THIS BUFFER 

017330 o00000 TSTNM: O ; TEST 

017332 o00000 FIRST: O iI JERO ACL TYPE HEADER 
:IF ONES WILL NOT TYPE HEADER 

017334 000000 RH70: 0 ;FLAG = 1 FOR RH70 CONTROLLER 
‘FLAG = O FOR RH11 


ata 


TABLE FOR ATTENTION BITS 
ATTENTION TABLE 


017336 001 o0e O04 ATABLE: .BYTE 1,2,4,10,20,40,100,200 
017341 010 020 040 
017344 100 200 


CZRJHBO, RPO4/S 6 DSKLS CTRLRE MACYLL 30(1046) 10-NOV-77 11:48 PAGE S7 
C2RIHB.P11 10-NOV-77 1 REGISTER ADDRESSES . SEG 00S7 

2613 

2614 .SBTTL 

2615 "SBTTL #**PROGRAM SETUP & SETUP TESTS##« 

Bat *SBTTL 

3618 017346 012737 177777 015120 BEGIN2: MOV #-1, d8SELECT ;SELECT UNIT 

19 017354 O00402 BR START 

2620 017356 005037 015120 BEGIN: CLR aeSELECT ;D0 NOT SELECT UNIT 

e621 :NORMAL RUN 

sess 017362 START: 

2624 017362 oo000S RESET 

2625 

2626 

at 017604 012737 000000 177776 STARTA: MOV #0, PS ;SET PROCESSOR STATUS TO O 

2629 01761 12777 057302 175124 MOV WRPVECT, JRPVEC ; THIS IS FOR UNTIMELY DRIVE INTERRUPTS 

2630 Ol 737 060346 JSR PC, JSSTKINT :IN 1AL Ze TTY KEYBOARD 

2631 O1 737 01733 TST aetIRST !IS THIS FIRST TIME ROUND ? 

26 017630 001001 BNE 1§ : DON’ T TYPE HEADER IF NOT 

2633 0176 BR 2s ‘TYPE HEADER 

2635 017634 000137 O20662 1S: IMP asSND1 ' 

2637 017640 2s: 

2638 

2640 

eo4l 020662 012737 177777 017332 SNDI: MoV #-1, aaF IRST ;NEXT TIME DO NOT GIVE HEADER 

2643 

2644 020 010000 160212 RH7OCK: BIT #SW12, ISWR ;LOOK TO SEE IF USING RH70 

264S 0207 001403 ea 3 ‘IF SWle = 0, SKIP NEXT 

Bo4G 020730 012737 O00001 017334 MOV #1, 8RH70 :IF SWie = 1; CU IS AN RH70 

2648 736 005737 015120 3S: TST @eSELECT ;200 START? 

264 1016 104412 RDOCT 

2650 021020 O4e71 7770 BIC #127770, (SP) ;QNLY KEEP LAST 3 BITS 

2651 021024 01163 nif Sile MOV (SP), aeUNIT !SAVE UNIT TO BE TESTED 

265e 021030 012637 015122 MOV (2p 34° QeUNITSL :SAVE UNIT TO BE TESTED 

2654 


26ss 


(Sig) 


mn 32 


~ 
— 


Bue &é 


e Ree g ul 
Eset st 
(eed caeed cael seed ame ceed al ae eel ee ae ee a eed 
TO ee OO 


BYR RSRBRBASR 
Rs 


Baad Zan 
fururu 


tatatatat aaa 


REnReS 


RROD Pu PMV for 


a 
~ 
oe 
£ 
oO 
ro 
it) 
N 
Ww 
N 


SIB-NOv=P7 Lise 8} VALUE POR SOFTWARE secre Seo cose 


1 1000 MOV TACK POINTER 
bee B1s739 Beleie 000030 MOV sReGsAl,, 30 SSEMTVEC; at ts Bre Seven 
4 0127 1112. 000004 MOV ees, BERRVEC 
oS3 1 ate p5abe4 MOV $25 if Me of Pee 
1 014746 MOV SeHOB. Ri R OF ADDR OF FIRST REG. 
1$: . MOV giR1D$, 2 ; 
DEC :C 
375 BNE H F NOT DONE 
SY BR F 
o00006 o00004 2s: Mov coher semua Ns es TRAP ATCHER 


: O20000 160000 _— NTOUT ? 
Bie 000204 MOV sADDMOD, -( SP) fae READY to TYPE STARTING ADDRESS 
OF “CHANGE OF BASE ADDRESS” ROUTINE 


7 
C 

as 177776 001200 FoR SEIS, tert po a oe 

36 


104402 TYPOC 
000005 HAL T are TO FORCE pate aRESTART! 
000137 o44S60 4S: IMP aseseoP :GO TO END OF PROGRAM ---------------- > 
242 012737 021316 oOO00004 3s: MOV aTRP, ae ; INITIALI 
55 005737 015020 TST aJeRHBAE :ADORESS Rane (Rh (RH11/RH70? ) 
4 37 017334 INC g#RH70 
14 20 BR se =k AND. GET OUT 
16 726 TRP: ST (3+ :NORMALIZE THE 
320 005726 TST (SP : STACK 
356 012737 061606 000030 ATN: MOV SSERROR, DeEMTVEC: ; RESTORE ERROR VECTOR 


TERS ARE SAVED 
ooocc& 000004 MOV #BERRVEC+2, aserrvie; ;RESTORE TRAP CATCHER 


CZ2RJHBO,RPO4’S“6 OSKLS CTRLR@ MACYI1 30(1046) 10-NOV-77 11:48 PAGE S9 


CZRIHB.P11 10-NOV-77 11:36 Tl REFERENCE EACH REGISTER SEG 0059 
3638 021402 012706 001000 MOV aSTACK,SP ;RESET STACK 
2695 14 7 O147S4 O21442 Vv #RHC BUN+2 
3637 Sis Bs oa B4cc33 -n oe vam TST Rey. hese Br BF Reet E fest Reao wnt re 
2700 tide ipsoeh Bre’ bc ‘iB TERRES Pa aRE SHANE 
2702 
2793 
2704 
g7O8 BRINGS BLIP, D)4773 ney gen, hoe StRPerseo: 
2710 021476 011137 001126 MOV JR1; J8SBODAT :TEST DA 
si $81806 dBeca? 81185 cere BEBEBBAY = co00 
3715 1514 010137 045530 MOV . R1, a#REGADR ears G 
Of Beem. tar: coi ce a ae 


CZRJHBO, RPO4’S 

CZRIHB.PLi 
2717 
e718 02153e 
2719 021534 
2720 
e7el 150 
e7ee 1546 
e723 1624 
Bie 
fe Bl 
e7e7 Oeib4e 
$88 cous 
2730 Bsiess 
2731 O216S4 
2732 Bs i bee 
2733 1660 
2734 
e73S 021664 
2736 021670 
e737 O0elb7e 
2738 021674 
2739 
e740 021700 
e741 021706 
e742 021710 
2743 
2744 
e745 021714 
2746 
2747 Oe22260 
2748 
2749 
2 
27 : 2264 
27’ O58 4 
e7S4 Oeee70 
2755 Oeee74 
4 300 
e75 2302 
e758 2304 
2759 231 
2760 231 
e761 2316 
e7be Oee3ee 
763 Oee3eb 
a 
2766 Jees34 
£767 peso 
e768 Oee346 
e769 022350 
e770 Oee3sé 
2771 


76 DSKLS 
10-NOV-7 


oo000S 
004737 


Boioee 
i 


Oo — ee 

R BERR 

5 Gee GS 
N Sh-S NW 


8 

OoO~ 
—-s 
Sh 


000137 


001477 


CTRLRe 
7 11:36 


060346 
020000 
014774 
014754 
000010 
014760 
177777 


015136 
018137 


022264 
020000 
O2eb22e 


044560 


172414 
024020 


020020 


MACY11 30(1046) 
T3 


157372 


187232 


172434 
172424 


4$: 


1$: 


es: 


38: 


XEe: 
es: 


38: 


4S: 


10-NOV-77 


14Ne PAGE 60 
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 


RESET 
JSR PC, a#STKINT 


git aes meee 


JeRHAS,R1 
MOV asRHCS2, R2 
aRe 


MOV #8. ,RO 

MOV JeRHER1 , RY 
MOV #-1,9R4 

INC aR2 

DEC RO 

BNE 1$ 

MOVB @R1, I#TOTALAT 
CLRB asTOTALAT+1 
TSTB aR1 

BEQ $ 

JMP xEe 

BIT #SW13, aSWR 
BEG $ 

JMP SELTST 

JMP aeSEOP 


;#SET UP UNITS TABLE 


MOV #8. ,RO 
MOV sUNTTS,R3 
MOV #-1,(R3)4+ 
DEC RO 

BNE 


3$ 
MOV #UNITS,R3 
CLR JSNOUNIT 


ss. 
MOV aR1‘ aeSTMPO 
ROR asStMPo 
BCC 


$ 

RS, IRHCS2 
CMP #24020, ARHOT 
CMP 820020, ARHOT 


giM AN INIT 
TTY KEYBOARD 


or TYPEOUT ” 
F SO 


HA . OF RHAS 
HAS . OF RHCS2 
AR Se 


DOOWBBMe -w 
Se z- 
m tS =) 
Urs 
wo 
tt 


53 


ADDR. OF RHER1 
RRORS {ATO RHER 1 
NT UNIT NO. 

if 8 NOT DONE 


. DRIVE NTION 


Q=8 
aa 
aD 


TE 
¢ EAR TEST 
Y DRIVES PRESENT 
NG - TYPE THE MESSAGE 
GO FILL “UNITS” TABLE 


es 
i 
" 


nae 
aks z 
a3 
rin 
08a 
é 
= 


se 


T AND LOAD 
RIVE IF SO 


20 


Cc 
z 
HO 


; COUNTER 
; POINTER 

;PRESET BLOCK TO ALL ONES 
;BRANCH IF 8 NOT DONE 

; POINTER 


;NO. OF UNITS PRESENT 
COUNTER 


; TEMPORARY STORAGE 

;SET CARRY IF ONE IN O BIT 
; INSERT UNIT NUMBER 

s18 gHTS A _ DUAL PORT RPOY ” 

3; TYP IVE . IF SO 

31S THIS A SINGLE PORT RPOY ” 
TYPE DRIVE NO.IF YES 


s 


CZRIHBO,RPO4/S/’6 DSKLS CTRLR2 
CZRIHB.P11 :36 


Ose3e8 
b35376 
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2777 
2777 


005737 
013737 


172302 


001223 


015114 


MACY11 30( 1046) 
T4 


172414 
172404 


172374 
172364 


015112 


6S: 


Ss: 


SELTST: 


JOS . 


10-NOV-77 :48 
TEST FOR brrW Ss PRESEN USING RHAS AND RHCS2 


ge ° Naeem S alt ° a. or RPOS ” 
CMP ee as SThGLE PO PORT RPOS ” 
BEQ 6 YPE URIT NO 
CMP #24022 , JRHDT ;1S THIS A QUAL PORT RPO ” 
BEG 6$ ; TYPE THE NO IF SO 
CMP #20022, JRHDT ;1S_ THIS A SINGLE PORT RPOG ” 
BEQ 6$ ; TYPE THE NO IF SO 

#NO...I1T’S NOT AN RPOY/RPOS/RPOG DEVICE 


: #50 TYPE but OTe DEVICE TYPE 


MOV RS,-(SP) ;GET READY TO TYPE UNIT NUMBER 


TYPDS 
MOV @RHDT, -( SP) ;GET READY TO TYPE RHOT 
eg ;NO RPO4/S/6 FOUND SO BRANCH 

MOV Re (R3)+ 
TYPE éRe 

Vv RS, RESP) sPUT ORIVE NO. ON STACK 
TYPDS YPE DRIVE 

NC @SNOUNIT  INCR OTAL NO: OF UNITS 
INC RS ;RHCS2’ UNIT ADDRESS 
DEC RO jORIVE COUNTER DOWN ONE 
BNE 4§ :TEST AND DO NEXT UNIT IF 8 NOT DONE 


MOV QSUNTTS, DBUNTT _;SET UNIT NO. TO FIRST ONE FOUND/OR 0 
MOV SHNOUNTT, DeNUNIT’ ;SAVE NO. 

O*eNUNIT TE N NUNIT = 0 THEN ONLY ONE UNIT 
F NUNIT > 0 THEN MORE THAN ONE UNIT 


TST @eSELECT ST ARTING ADDRESS 200 ” 
MOV QBUNITSL,D#UNIT ;CHANGE UNIT NUMBER TO SELECTED ONE 


SEQ 00: 


C2 


= 


CZR 


SRJne.P11 16-NOV=? 


Boueuuuuyy 2 
eee 
WONT U CWO 


a 


3 


Restate sagt aE ORY 


737 
037 


Oboes 


22710 
obi0is 
001012 


0127 

80870 
022710 
001404 
011037 
00$337 
013700 


022777 
001434 


$c rut? 
r? 11:36 


024020 
020020 


024021 


MACY 11 BOC 10NG) 


015134 


171670 
171660 


171650 


10$: 


KOS 


T FOR br1ves “PRESENT BING RHAS AND RHCS2 


-NOV-77 
18 
ISR PC Q¥CLOISK 
CLR BATTEN 
;#TEST FOR UNIT #0 
TST QSUNIT 
BNE 1 
MOV #41,RO 
CMPB tage 
fee 6 aeSeLect 
BNE 10$ 


jEILL UNIT NO. 
;CLEAR 


31S UN NEXT IN THE UNITS TABLE ? 
iT? Nor. ¢ oe | THIS 

igs ie 8 7,080 MEDIA LOCATION 
NBs nf in F; sree Ep BAO TEST UNIT #0 

IF &0 Test UNE? 0 Start 7) 


ETRE CREM THE UNITS T T XT_DR ¥ en's ANY} 
# & DECREMENT THE “NOUN NTs" ont, (TO BE TESTED) 


ae SUNITS, RO E POINTE 
TST those : SELB o. rite ot xT Unt TER N THE FABLE 
CMP #-1, (RO) HIS: THERE. an ANOTHE HER TABLE ENTRY PRESENT ? 
BEQ :IF NOT (LOC = -1) MUST UST _USE UNIT #0 
MOV (RO), JSUNIT :SET UP TO BE THE UNIT EST 
DEC aeNOUNITS : DEC MENT BEC UNIT o. WON? T BE TESTED 
MOV QsUNIT, RO :RO CONTAINS THE UNIT UNDER TEST 
CLR JsRPOS ;CLEAR RPO6 VICE TYPE FLAG 
CMP #24022, JRHDT 
BEQ 2s *YES.. FLAG 
CMP #20022, IRHDT i$ NGLE ORT 06 ? 
BEG 2s YES...SET FLAG 
BR 3$ ‘DON'T SET THE RPO& FLAG 
MOV #-1, J8RPOG :SET THE FLAG 
;ASSUME THE NEXT UNIT IS AN RPOY 
MOVB ATABLE (RO) PeATTENT i SET APPROPRIATE ATTENTION BIT 
MOV DeUNIT, -(SP) TO STA CK 
TYPDS YE NOR IVE NO 
CMP #24020, JRHDT ue PORT RPO ? 
BEQ 4 ASCII MSG OUT 
CMP #20020, JRHDT sth E PORT RPOY ? 
BEQ 4§ THE MESSAGE 
CMP #24021, IRHDT aah PORT RPOS ? 
BEG S$ :TYPE THE MESSAGE 


CERIMBO,RRON Sg ORAS CTRLRE ACYL 39LIOWG) _1B-NOYATZ Lcd Lee we ce 0063 


023134 2777 Oe0021 171640 CMP eens es aNGL we he RPOS ? 
023142 1430 BEG 5 MESSAGE 
tt: eh Oe4dee 171630 CMP #24022, JRHDT Wf PORT RPOG ? 
1S2e 144 BEG cP ORT ROE ° 
| tee es O200ee 171620 ns + (nae tetateal a OR 
gece B53185 BBdue4 BE 1 paves Ig ONOT RPOY/S/’6 - SO 
a YPE ANY MESSAGE OUT 
ser PM AEE ERS edt ESI 
Be in PROGRESS 
2879 
2880 Oe3166 4S; 
e881 seee 000435 BR 1$ ;SKIP NEXT ONES 
023224 S$: 
BS 000416 BR 1$ ;SKIP NEXT 
6$: 
3) 023316 777 =171462 1S: TST @RHSN ;RE RIAL NO. AND DRIVE TYPE 
2887 023322 777) =171454 TST @RHOT ed ARE TO HELP SCOPE LOOPS 
e888 O02e33e6 017737 171452 015130 MOV JRHSN, J8SAVSN AVE TO CHECK IF CLR RHCSe BIT S CLEARS ANY BITS 
2889 023334 017737 171442 O1Sle6 MOV @RHDT? aaeSAVDT AVE TO CHECK IF CLR RHCS2 BIT S CLEARS ANY BITS 


C2RIMBO, RPO4/S “6 DSKLS_ CTRLR2 
CZRIHB.PL1 10-NOV-77 11:36 


023352 004737 045764 
023356 032713 010000 


Se3 023600 932713 010000 
2838 
2ecg 
29300 


eked & 


MACY11 30(1046) 
TS 


1S: 


10-NOV-77 11:46 PAGE 6& 
TYPE SERIAL NUMBER AND DRIVE TYPE 


PC, J8CLDISK ;GIVE INITILIZE 

#MOL , IRB ;CHECK MOL IN RHDS1 
#MOL , IR3 : CHECK MOL IN RHDS1 

1S ANCH IF MOL IS HIGH 


SEG O0E4 


CZRJHBO, RPOY’S 
Sout ay 
2901 
023706 
023720 
023724 
230 
Bagg 709732 
2910 
e911 023 
ais Bes 
sai 853 
1s 
e916 
Saiz 0237Se2 
i8 
2319 
023760 
3766 
023772 
023774 
3 
024000 


RASRRAS S21 8: Sau GRATER RENO TON SS 


“6 stm | 
10-NOV-77 


113737 


air | 
11:36 


O464SE 


016311 


O46660 


052770 
014746 


MACY11 30(1046) 
T6 


171044 
171016 


170776 


016314 


01S24S 


04SS30 


1S: 


es: 


10-NOV-77_ 11:48 PAGE 65 
CHEC BE LOW 


K MOL TO 
MOV eSTACK, SP ;RESET STACK 
JSR PC, a#CLOISK BNO UNIT fe er , = REG. 
MOV #OM0 , SRHMR AGNOST an 


MOV @ePKACK,@RHCS1 ;LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1 
eave Ree base FOR COMPARISON AFTER GO 


58 asSAVER ; SAVE 
‘ : FROM 
RE INTO :TO 
15. 3;NUMBER OF REGISTERS SAVED 


;GIVE GO TO PACK ACKNOWLEDGE COMMAND 
61s #GO, dRHCS1 ;GO TO PACK ACKNOWLEDGE COMMAND 


- CHANGE SAVE GISTERS TO EXPECTED VALUES 
bis Wy DERE SH 0+30 ; D RHOS1 


arr R_GO N GIVEN TO PACK ACKNOWLEDGE COMMAND 
Gre ERS AGA IN SO THAT COMPARISONS CAN 


3 RO, JUSAVER ; SAVE 
RHWC : FROM 


19. ;NUMBER OF REGISTERS SAVED 
R BYTE OF mes ling ab DUAL PORT 


Poa! TION THE OPPER B SAVED AS IS 
aoa ah Se Ge Fe 
spRcagrs BEFORE PACK ACKNOWLEDGE COMMAND 


fs ae, 


WRF R: 

19. ; 

1§ ; FOR ERROR 

2s ae COMPARISON 

MOV QsERWORD , RS iG T NG Y TO INDEX 

ADD RS, RS EER 

MOV RHWC-2(RS), aeREGADR-S ;FAILING REGISTER ADDRESS 

ERROR 1 REGISTER CHANGE 
EOP ER CK ae Know EDGE COMMAND 
WITH Go Is Give 

RTS . PC :RETURN TO COMPARISION 


SEG OO6S 


BOE 


ene RPO4Y/S’6 DSKL one MACY11 30(104%6) 10-NOV-77 11:48 PAGE 66 


JHB.P11 10-NOV-77 11:36 SEG O0EE 
2957 .SBTTL 

2958 -SBTTL #**#DIAGNOSTIC CODEx#« 

2959 .SBTTL 


CZRIHBO,RPO4/S’6 DSKLS CTRLR2 MACY11 30(1046) 10-NOV-77 11:48 PAGE 68 
CZRIHB.P12 10-NOV-77 11:09 SEQ 0067 


oo0004 TIMOT=4 


TREROLbOMING TESTS HILL ATTENET To carey. Ty grou FAUT 
tS Ye, Sea P65, 8S PUWBECTRTEG HD accevee 


ia 


2967 A "TST" INSRUCTI 
38 024120 012777 O00040 170626 MOV #CLR, JRHCS2 ;CLEAR RH11 CONTROLLER 
5374 024126 012705 014756 MOV SRHCS1,RS ;RS=LIST POINTER. 
7 1 13737 001176 MOV ost mgt TMPO VE TIMEOUT VECTOR. 
Be psat 613535 neay ie 000004 MOV Oetinor :ePy VECTOR To’ E00 
c 
2376 024146 012706 001000 Loo: MOV satan. oo ;SET STACK POINTER. 
1 1 100: Vv (RS) ;R2=RH11 ADDRESS. 
5358 etsy 814395 045530 MOV Re, Re Ghor 
2980 024160 005712 TST ;DOES THE RH11 REGISTER RESPOND? 
Sag 024162 062705 o00002 ADD #2,RS ;UPDATE ADDRESS 
2983 Gev166 d205e7 015010 CHP RS’ #RHEC2 AT THE END OF LEGAL RH11 REGISTERS? 
Sae¢ BS4155 ABAGB’ BB 58 i YREF coro ono. 
sags 024176 104042 E00: ERROR 42 
cage 024200 013737 001176 o00004 oDd: MOV STMPO,aSTIMOT  ;RESTORE TIMEOUT VECTOR. 


CZRIHBO,RPO4’S’6 DSKLS CTRLR2 MACYI1 30(1046) 10-NOV-77 11:48 PAGE 69 
CZRIHB.P12  —10-NOV-77 11:09 Til BCTA LEGAL REGISTER RESPONSE TEST SEO D0€e 


2990 


OO 


cE : 


Sigtstatstsistststors 
OWONOU SWe-O 


RPO4’S/“6 DSKL cTRLRE MACY11 30(1046) -NOV-77 :48 PAGE 70 
-Ple 10-NOV- scr 09 Til aetna LEGAL rtdicfer RESPONSE TEST SEG 0069 


1 
SIBLE_DATA PATTERN A 


Me AT 
WILL ALLOW THE PROGRAM 
OMMANDS : 


HONTPLLATE BYTES. US USING hi peru FOLLOWING C 
1). MOVE BYTE BOTH TO AND FROM THE WORD COUNT REGISTER 
2). BIT SET INTO THE WORD COUNT REGISTER. 
3). BIT CLEAR INTO THE WORD COUNT REGISTER. 


AFSLLOMING & TESTS 18 DETERMINE IF wfne te THE “ALL POSS TEL FOR THE RH1 .. 


024224 012777 oD0040 170S22 MOV #CLR, ARHCS2 ;CLEAR RH11 CONTROLLER 
024232 012706 001000 MOV #STACK, SP ;SET STACK POINTER. 

024236 013702 014750 MOV RHWC Re 1 WC ADDRESS. 

024242 010237 04553 MOV Re REGADR Regist ER /BODRESS TO REGADR FOR TYPING. 
024246 O12 000377 001124 MOV #377, SGDDAT 

024254 ooso1e LOe2: CLR (R2) ycuran RH11 WC. 

024256 112712 000377 102: MOVB #377, (Re) ;SET WC TO_LO BYTE. 

Oe4eb2 011237 001126 MOV (R2); $BDDAT :$BDDAT=ACTUAL WAS 

O24266 023737 001126 001124 CMP SBDDAT,SGDDAT ;COMPARE RESULTS 

024276 104044 ERROR 44 ‘ 


CZRIHBO, RPOY/S “6 OSKLS CTRLRe MACY11 30(104%6) 10-NOV-77 11:48 PAGE 71 
CZRIHB.P12 10-NOV-77 11:09 Tle BCTA MOVB LO BYTE TO WC SEG 0070 

3021 

30e¢ 024316 012777 CO0040 170430 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 

3024 024324 012706 001000 MOV aSTACK, SP ;SET STACK POINTER. 

3o5e 024330 013702 014750 MOV RHWC, R2 ;R2=RH11 WC HI BYTE ADDRESS. 

3087 Ge 334 01023 045530 MOV R2, REGADR 

12737 177400 001124 MOV #177400,$GDDAT ;SGDDAT=S/B. 

3930 024346 o0s012 LO3: CLR (R2) ;CLEAR RH11 WC. 

3032 024350 o0Ss202 INC Re ;R2=HI BYTE ADDRESS. 

3034 O243S2 112712 000377 103: MOVB #377, (R2) ;SET WC HI BYTE. 

303 024356 005302 DEC Re ;R2=FULL WORD ADDRESS. 

3038 024360 011237 0601126 MOV (R2), SBDDAT ; SBODAT=ACTUAL. 

3040 024364 023727 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 

3041 024374 194944 ERROR 44 


O06 


CZRIHBO,RPO4’S’6 DSKLS CTRLR2 MACYL1 30(1046) 10-NOV-77 11:48 PAGE 72 
C2RIHB.P12 = 10-NOV-77 11:09 T13 BCTA MOVB HI BYTE TO WC SEG 9071 
4 
3Oue 024414 012777 cCOOO4O 170332 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
2 024422 012706 001000 MOV #STACK,SP ;SET STACK POINTER. 
3 137 O14 MOV RHWC, Re ;R2=RH11 WC ADDRESS 
4 1e ss MOV Re REGADR 
1 4 12737 0003 001124 MOV #377, SGDDAT ;SGDDAT=S/B. 
3083 024444 oosole LOY: CLR (R2) ;CLEAR RH11 WC. 
3055 O24446 012712 oO00eSe MOV #2Se2, (Re) ;SET UP WC 
3056 Oe44Se 1Se71le oO00125 104: BISB #125; (Re) :D0 A BISB 
3058 024456 011237 001126 MOV (R2), SBDDAT ; SBODAT=WAS. 
3060 O24462 023737 001126 001124 CMP $BDDAT,SGDDAT  ;COMPARE RESULTS 
3061 024472 104045 ERROR 45S 


C2RJHBO,RPOY’S’“6 DSKLS CTRLR@ MACYLI — 10-NOV-77 11:48 PAGE 73 


CZRIHB.P12 10-NOV-77 11:09 BCTA BISB LO BYTE TO WC SEG 0072 
30e¢ 024512 012777 cCOOO4O 170234 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
ne 024520 012706 001000 MOV aSTACK, SP ;SET STACK POINTER. 

5 024524 013702 014750 MOV RHWC, RE ;R@=RH11 WC ADDRESS. 
3070 024530 010237 045530 MOV R2, REGADR 
37 024534 012737 177400 001124 MOV #177400,$GDOAT ;SGDDAT=S/B. 
3073 oe4s42 oos012 LOS: CLR (R2) ;CLEAR RH11 WC. 
3075 024544 005202 INC Re ;R2 =HI BYTE. 
arg SEIS HEHE BERLE ros: BSE ESSA} BB'S EL MS 
3080 024556 005302 DEC Fa ;R2=FULL WORD ADDRESS. 
3082 O24S60 011237 001126 MOV (R2), SBDDAT ; SBDDAT=WAS. 
3084 O24S64 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 
3085 024574 194045 ERROR 45 


wa 

catty 

B 6 
~ 


seeeas 


8 
2 


ee 


PAL OU-OD 


WWWWWWWWWW 
0+ bb 0 = 0 0 


oo 
wo 


T06 


RPO4/S’6 DSKLS_CTRLR2 MACYL1 30(1046) 10-NOV-77 1448 PAGE 74 
12 10-NOV-77 11:09 TiS BCTA BISB HI-BYTE TO WC SEG 0073 
024614 012777 COOO4O 170132 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 

024622 012706 001000 MOV sSTACK, SP ;SET STACK POINTER. 

024626 013702 014750 MOV RHWC , Re ;R2=RH11 WC ADDRESS. 

O2e4632 010237 045530 MOV Re REGADR 

024636 Ole737 OO0252 001124 MOV #252, SGDDAT ; SGDDAT=S/B. 

024644 oo0so1e LOb: CLR (R2) ;CLEAR RH11 WC. 

024646 012712 000377 MOV #377, (R2) ;SET wC=0000377 

o246S2 142712 oO001e5 106: BICB #125, (R2) ;D0 A BICB 

024656 011237 001126 MOV (R2), SBDDAT ; SBDDAT=WAS. 

O24662 023737 001126 001124 CMP $BDDAT,SGDDAT  ;COMPARE RESULTS. 

Oe4672 194046 ERROR 46 


WWWWWWWWWWWWWWWWWWWWWWWW) 
0 b= Be be be be Be he hb be Be b= Be Be Be be be Oe oe be 


JO6 


O.RPO4’S’6 DSKLS CTRLR2 MACYLI1 30(1046) _10-NOV-77 11:48 PAGE 75 
Plz 10-NOV-77 11:09 T16 BCTA BICB LO-BYTE TO WC SEG 0074 
C2e4712 012777 oCOO0O4O 170034 MOV #CLR, ARHCS2 ;CLEAR RH11 CONTROLLER 
024720 012706 001000 MOV eSTACK, SP ;SET STACK POINTER. 
0247 13708 014750 MOV RHWC , Re ;R2=RH11 WC ADDRESS. 
? 10237 045530 MOV R2, REGADR 
734 012737 125000 001124 MOV #125000,$GDDAT ;SGDDAT=S/B. 
024742 ooso12 LO?: CLR (R2) ;CLEAR RH11 WC. 
024744 005202 INC Re ;R2=HI BYTE. 
O24746 112712 000377 MOVB #377, (R2) ;SET WC=177400 
G2e47Se 142712 O001eS 107: BICB #125; (Re) :D0 A BICB 
024756 005302 DEC R2 ;R2=FULL WORD. 
024760 011237 001126 MOV (R2), SBDDAT : SBDDAT=WAS. 
024764 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 
024774 194046 ‘ ERROR 46 


VE ODSUON LOU ODONTOL U-OD OD 


oo 


HEGA“SBBIERZS BS 


BONEN £ WR Deo UOTE Cahora a 


NNO 
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RPO4“S’6 DSKLS CTRLR MACYLI 30( 1046) 10-NOV-77 11:4 PAGE 7 
Pie 10-NOV-77 11:0 i BCTA BICB HI- BYTE TO WC SEG 0075 


nts TEST ATTEMPT TO ACCESS AN ILLEGAL REGISTER art 
T 


; OR’ RL LOGIC WILL ALLOW UP TO 3 
EorLt OnE HELP athets YS altaO he cot eMPmcLTone apices 


TEST WILL 


THE C OF THE T AL 18 OR RE ISTERS so 
WE WILL ATTEMPT TO AD Po. Hg CONE Teun LS alee OF eee aR AS BEFORE $e ast 
REGIST R + 2. 
625014 012777 O00040 167732 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
O2S022 005737 017334 TST as8RH70 ;CHECK TO SEE IF RUNNING WITH RH70 
19 BEG 1$ fe NOT...SKIP NEXT 8 DO FOLLOWING 
137. 015016 MOV RHCS3, R2 2= Last LEGAL RH70 REG RESS 
BR 2s ti NEXT 
013702 015010 1$: MOV RHEC2, R2 AST LEGAL RH1i REG ADDRESS. 
Obe708 go000¢ 2s: ADD ae. : ‘RS = = Ei T ILLEGAL ADDRESS. 
08637 fies COR $66 Bat SBDDAT=wAS 
; =WAS. 
025056 7 1124 CLR GDDAT :$GDDAT=S/B. 
025062 013737 000004 001176 MOV DsTIMOT,STMPO  ;SAVE TIMEOUT VECTOR. 
025070 012737 025114 000004 MOV #010, ast IMoT :SET TIMEOUT VECTOR TO O10. 
025076 012706 001000 L10: MOV #STACK,SP ;SET THE STACK POINTER. 
G25102 o0s712 TST (R2) ; TEST ADDRESS. 
0251 oo0024 ADD #24. Re ;THIS MIGHT BE THE CASE OF 32 REGISTERS 
925110 005712 TST (Re5 :TEST IT AGAIN 
O25iie 10404 ERROR 47 


025114 013737 001176 OG0004 O10: MOV STMPO, d#TIMOT ;RESTORE TIMEOUT VECTOR. 


WWWWWIWWWWWWWWWWWWWWWWWWWWWW oS 
n= bas 0s as Os as Oa Os as 0 a3 = => = bo 0 9b Oban abo boob [ a 
SBIadZon s 


BESRRLGH HS BBVERIS 


seuenguRes 


De eh he re ee 
WO NOUN £ WhO 


PoRPOFUfororuforororaRafurUrurD 


VERZOW-o 


fore 
rv 
o 


RPO4/S/ 
-Pl2 


025140 
025146 
0eS1S4 
025156 
025164 
025166 
025172 
025476 


be806 


025512 
0eS516 


2 


d3se50 


02SS36 
Oess4e 
o2ss44 


O02SSS0 
Oesss4 


bBe876 
pee 74 
beeebe 


O2S—04 


18- 


ROV=97 


012777 
A537 E7 

1150 
023727 


001002 
000137 


012706 


di3 
0102 


B0500% 
1os4e3 
o52737 
013705 


010112 
011537 


b42937 
61086 
tg 


000746 
104050 


CTRLRe 
11:09 


000040 
015136 


001100 
025600 


001009 
014754 
045530 
015136 
Bab 
014756 


001176 


167798 


001126 


009010 


aa alOahOVeZ7. Int STER TEST 


167606 
000377 


000000 


001124 


001126 
001124 


;NOM WE ATTACK BTCB 


if Bia TWO eg tt} gat rare} yor He RED 8 ra THE 


Sais ect be Ss Exist AND TEST THAT 
so 4 NON EXISTANT DRIVES 


Binur 


OPERATOR. T 


Re Te 


T wana SS OHNE 4. E OPERATORS ACT 39 AOVISE THE 


MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
CMPB  =s-_-« ABTOTALAT, #377 DRIVES ON LINE. 
BNE Ull : ;NO GO RON THES TEST. 
CMP SPASS, #0 HAbvistic THEN T TYPE MESSAGE 
: THAT THIS A "Btu NOT BE RUN 
BNE Y11 
IMP x1} 
Yils 
U1: MOV #STACK, SP ;SET STACK POINTER. 
MOV RHCS2 Re ;R2=RH11 RHCS2 ADDRESS. 
MOV Re, REGA’ 
MOV QSTOTALAT ,RO 
CLR 1 
S11: ROR RO 
BCS Nil 
R11: MOV RL AeSeD087. ;SGDDAT=S/B. 
gIs $GDDAT 
MOV RHCS1,RS ;ADDRESS OF A DEVICE REGISTER. 
Lil: MOV R1, (Re) ;LOAD A NON-EXISTANT DRIVE. 
MOV (RS), STMPO ;ATTEMPT TO READ FROM DEVICE REGISTER. 
MOV sp00A ; $80087=W4As 
BIC Sreche Pusutus2tdsis Saba ;SBDDAT=SAVED DATA. 
CMP SBDDAT, SGDDAT ;COMPARE RESULTS. 
BNE ll 
N11: INC Rl 
wes CMP Rl, #8. ; TESTED ALL DRIVES YET. 
: BR Sil 
Ell: ERROR SO 


SEG 0076 


CZRIHBO,RPOY’S’6 OSKLS CTRLR@ MACYI1 30(1046) 10-NOV-77 11:48 PAGE 78 
C2RIHB.F1i2 10-NOV-77 11:09 Tel BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) SEG 0077 


3335 


ERRine Pie 10-Nov-97 11:08 "++ SPSI°® BtheNNeD) NON-ERISTANT DRIVE TEST. (SET) Seo 0078 


3230 


3 025624 012777 OO004O 167122 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
Ee G25632 012706 001000 MOV #STACK, SP ;SET STACK POINTER. 
35 13702 014754 MOV RHCS2, Re ;R2=RH11 RHCS2 ADDRESS. 
ry 1 045530 MOV R2 RE GAR 
015136 nov gato ALAT, RO 
Si2: ROR RO 
3640 pSecee 103020 BCC Nile 
333 025660 010137 001124 . MOV R1, $GDDAT 
4 025664 013705 014756 MOV RHCS1,RS ;ADDRESS OF A DEVICE REGISTER. 
seue 025670 010112 Li2: MOV R1, (R2) ;SELECT UNIT. 
364 025672 011537 001176 MOV (RS), STMPO ;ATTEMPT TO READ FROM DEVICE. 
3250 011237 001126 MOV (R2), SBDDAT ; SBDDAT=WAS. 
3251 p5eoe8 643535 167770 001126 BIC #tC<NED!US4!US2!0S1>, SBODAT ; SBDDAT=SAVED DATA. 
352 525 710 023737 001126 001124 CMP SBQDAT, SGDDAT ;COMPARE RESULTS. 
3654 716 001005 BNE l2 
3256 025720 o00S201 ~ N12: INC Ri ‘ 
3657 025722 O20i2e7 po0010 CMP Ri, #8. ; TESTED ALL DRIVES. 
3259 025730 000751 BR Sle 
3260 025732 104050 El2: ERROR 50 


EER THBO A REOWS (8 DEKE SA CTRERE «ACYL SOC 104) AOENCNED) NOMCEXISTANT DRIVE TEST. (CLEARED) SEG 0079 


Pie -NOV-77 11:0 

3263 
3264 

Ss ifs] TO st TE We AN READ ER THE “AS REGISTER AND NOT CAUSE 

R NED NON x C TANT’ DRI ) 

3268 025752 012777 GOOO4O 166774 #CLR, BRHCS2 ;CLEAR RH11 CONTROLLER 
3870 025760 012706 001000 MOV #STACK, SP ;SET STACK POINTER. 
327, 4 0137 4754 MOV RHCS2 -R2=RH11 CS2 ADDRESS. 
3673 B5255¢ 613595 BA0007 001124 MOV BUST USS!US1, SGDBA *ScbbA =S/B. 
3675 025776 013705 014756 MOV RHCS1,RS ;ADDRESS OF A DEVICE REGISTER. 
3277 026002 012712 000007 L13: MOV #US4!US2!US1, (R2);LOAD A NON-EXISTANT DEVICE. 
3673 026006 013702 014774 MOV RHAS , R2 ;Re= “AS”. 
3681 026012 011237 001176 MoV (R2), STMPO ;ATTEMPT TO READ FROM DEVICE AS. 
32°83 026016 o0s012 CLR (R2) ;CLEAR AS REGISTER. 
3284 01370¢ 014754 MOV RHCS2, Re :Re=RH11 CSe ADDRESS. 
3685 026024 0102 045530 MOV Re, REGAOR 

7 11237 001126 MOV (R2) T ; SBODAT=WAS. 
3580 OS Epa4 643533 167770 001126 BIC 1 re ee Oedsus2rbeie SBDDAT | SAVE NED AND DEVICE SELECTED. 
3583 O26042 023737 001126 001124 CMP SB0DAT, SGDDAT ;COMPARE RESULTS. 


2523 Oeb0Se 104051 


CZRJHBO,RPOY’S’6 DSKLS CTRLR@ MACY11 Salad et Py) -77 44:46 PAGE 81 






CZRIHB.P12 10-NOV-77 11:09 T23 AS REGISTER TEST SEG o0e0 
3294 
3295 NE NEXT-T — TESTS Ww TEST THE S REGISTER TH 
3598 BYTE Mo bases The Bat tens Bre Ch HOSER Sees ta tg Bey BROPPED OR oo cK 
3538 
3300 026072 012777 000040 166654 MOV #CLR, ARHCS2 ;CLEAR RH11 CONTROLLER 
3305 026100 012706 001000 MOV aSTACK, SP ;SET STACK POINTER. 
026108 013702 014752 Mov RHBA ake ;R2=RH11 BA ADDRESS. 
3308 psetis B1953¢ Teg MOV aL STI4A,RS ;RS=TEST LIST ADDRESS. 
3308 O26i20 012537 001124 L14: MOV (RS)+, SGDDAT ; SGODAT=S/B. 
10 1 ll 114: v $ T, (R2) :SET ISTER 
Bu Bseisa Biiess Borise Y —- SRDOPT RGB? =—-sE REA Bas "RBORESS ReGTore 
13 134 37 001126 001124 CMP SBODAT,SGDDAT ;C TS. 
3313 Bee iae 051401 BEQ N14 at a NENT FEST Bata. 
3315 144 1 ERROR Se 
18 1 1 N14: TST (RS) ;AT END OF LIST 
18 1 BNE L14 NO! 
i 10 
i Fi 
eae 40 
1 238 
1 
aS 138 1 
3328 76 3508 
3329 4000 
3330 
3331 0 
y 
too000 139556 
177774 177774 
177772 177778 
177766 1777 
3338 177756 177756 
3339 177736 177736 
3340 1776 6 177676 
334 177576 177576 
334, 177376 177376 
3343 176776 176776 
ss 175776 Larne 
173776 17377 
He 16 76 16777 
334 157776 157776 
3342 137776 137776 
3349 077776 077776 


CZRJHBO,RPO4Y’S’& OSKLS CTRLRE MACY11 30(1046) 10-NOV-77 11:46 PAGE 82 
CZRIHB.P12 10-NOV-77 11:09 Te4 BCTC BUS ADDRESS REGISTER SEG 0061 


3350 OebeS2e co000d 0 
3381 


EO? 


cen eo RPOY’S’6 DSKLS CTRLRE MACYI1 396 oe Pe a ig pbbid enc PSF 8° 


ZRIHB.P12 10-NOV-77 11:09 C BUS AD SEG cOee 


3352 
3353 026272 012777 COOO4O 166454 MOV #CLR, ARHCS2 ;CLEAR RH11 CONTROLLER 
see 026300 012706 001000 MOV #STACK, SP ;RESET STACK. 

335 026304 0137 o147s2 Mov RHBA, Re . ;R2=RH11 BA ADDRESS. 
3328 pSeai4 p16 ac 026356 MOV Ac etica ORs ;RS=TEST LIST ADDRESS. 
3361 026320 o0s012 LIS: CLR (R2) ;CLEAR RH11 BA REGISTER. 
3363 026322 012537 001124 MOV (RS) +, SGDDAT ; SGDDAT=S/B. 

33e¢ 113712 001124 11S: MOVB SGDDAT, (R2) ;SET BUS ADDRESS REGISTER. 
3366 Ose ass bi 7245 001126 MOV (Re), SBDDAT + READ BUS ADDRESS REGISTER. 
3368 026336 023737 001126 001124 CMP $BODAT,SGDDAT  ;COMPARE RESULTS. 

336 89 4 001401 BEQ Ris 

3371 026346 104053 ERROR 53 

3373 026350 905715 RIS: TST (RS) ;AT END OF TEST LIST. 
3374 O263S2 1362 BNE Lis NO! 

3375 ;THIS LIST WILL BE USED TO LOAD THE LOWER BYTE OF THE BA REGISTER. 
3377 026356 o00002 {STISA: 2 

3378 ooo004 4 

3379 000010 10 

381 6 Bonode iy 

3362 70 re 1o0 

3383 72 ieee 200 

3384 900376 376 

3385 372 372 

3386 O26400 000366 366 

3387 402 900356 356 

3388 404 336 336 

3389 026406 000276 276 

3390 026410 O00176 176 

3391. O2641e 900000 Ns) 


CZRJHBO,RPOY’S”6& OSKL tr: MACY11 30(1046) _10-NOV-77 46 PAGE 84 
CZRIHB.P1e2 1B-NOvo?? “1h Tes BC afc BUS Apress REGISTER LO-BYTE SEG 0083 


3335 026432 012777 COOO4O 166314 MOV #CLR, IRHCSE ;CLEAR RH11 CONTROLLER 
3335 026440 012706 001000 ; MOV aSTACK, SP ;RESET STACK. 
3397 o26444 013 014752 MOV RHBA, Re ;R2=RH11 BA ADDRESS. 
3398 4 102 045530 MOV Re, REGADR 
3393 454 01270S O26526 MOV aL ST16A,RS ;RS=TEST LIST ADDRESS. 
3401 O26460 005012 L16: CLR (R2) ;CLEAR BA REGISTER. 
x 55 026462 012537 001124 MOV (RS)+, SGDDAT ; SGDDAT=S/B. 
3405 026466 005202 INC Re ;R2=HI BYTE ADDRESS. 
3407 026470 113712 001124 116: MOVB SGDDAT, (R2) ;SET BUS ADDRESS REGISTER HI-BYTE. 
4 03 026474 005302 DEC Re ;R2=FULL WORD ADDRESS. 
3411 026476 011237 001126 MOV (R2), SBDDAT ;READ ADDRESS. 
3il¢ 026502 000337 001124 SWAB SEB bAF i RGUST BATA FOR HI BYTE. 
3414 O26506 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 
3418 026514 001401 BEQ R16 : OKAY 
3412 026516 104053 ERROR 53 
3419 O26520 005715 R1o: TST (RS) ;AT_END OF TEST LIST. 
3420 GCe6S22 001356 BNE L16 
EN ;THIS LIST WILL BE USED TO LOAD tHE UPPER BYTE OF THE BA REGISTER. 
3423 026526 000002 istiea: 2 
34 Sd ea uae eat to 
3426 00020 20 
3427 S00040 40 
3428 1 100 
3429 200 
3430 S44 76 76 
3433 026550 000376 $e 
3434 Geeeed OD0aeE 3ee 
3435 OSpece 0336 336 
3436 560 000276 276 

026562 7 176 


000176 
oococe 


WWW 
ce oe 
WWW 
0OOon 
wu 
o 
Bs 


se 


Pee eeseeees: 
SHBNTHEDMH—O BB 


é 


383 


0, RPO4/S.- 
Pie 


026670 


18 


-HOV=97 


012777 
012706 
013702 
10237 
037 
037 


017737 
012777 


40 
011237 
104054 
013777 


CTRLR 
11:0 


GO? 
MACYI1 30(1046) .10-NOV-77 11:48, PAGE BS te 


166142 


166046 


ints Test AU 
fHtomuetit sire? 


L2i: 


021: 


MOV 


PROPERL 


RH1 TNTERRLS 


Fe THIS TEST 


#CLR, IRHCS2 
eSTACK, SP 
eee 
GODAT 
JRPVEC , STMPO 
#021, JRPVEC 
SIE, (R2) 


(R2), SGODAT 
Ss4 
STMPO, JRPVEC 


T VIA THE SPECIAL COMMAND SEQUENCE 
OVES ONLY THAT THE HARDWARE CAN HANDLE 
;CLEAR RH11 CONTROLLER 

;SET STACK POINTER. 

;R2@=RH11 ADORESS. 


BODAT=WAS. 
GDDAT=S/B. 


‘Save RH11 INTERRUPT VECTOR. 
;SET RH11 INTERRUPT VECTOR TO 021. 


;CAUSE INTERRUPT. 
;WAIT FOR INTERRUPT. 


;SAVE CONTENTS OF REGISTER. 


;RESTORE RH11 INTERRUPT VECTOR. 


SEQ COS4 


CZ2RJHBO,RPO4’S“6 DSKLS CTRLR2 
Cc 10-NOV-77 11:09 


ZRIHB 


P12 


026714 
026722 
026726 
026732 
7 
OBE ras 
026746 
026750 
026754 


0267 
027 


012777 
013702 
010237 
005037 
127 
Seat: 
oocoos 


011237 
042737 


ORaree 
104055 


MACY11 30(1046) 
Te? 


166032 


001126 
001124 


10-NOV-77 


RH11 INTERRUPT TEST 


11:48 PAGE 86 


Test THAT RESET CAN GENERATE THE SIGNAL CLR L. 


Lee: 


% 
IF THE SIGNAL CLR LAS GENERATED THE’PORT SELECT BIT WILL CLEAR. 


MOV 


#CLR, IRHCS2 
RHCS1, Re 

Re, REGADR 
SGODAT 

sSTACK, SP 
SPSEL the) 
(R2) , SBDDAT 
atC<tE>, SBDDAT 
SBODAT, SGDDAT 


;CLEAR RH11 CONTROLLER 
;R2@=RH11 CS1 ADDRESS 

; SGODAT=S/B 

s SET groex POINTER. 
;SET PORT SELECT FLOP. 
;00 A BUSA INIT. 

; SBDDAT=WAS. 

;SAVE ONLY I.E. BIT. 

; COMPARE RESULTS. 


SEQ coEes 


CZRIHBO, RPO4/S “6 DSKLS CTRLRe 
CZRIHB. P12 10-NOV-77 1 
3490 
3491 
3492 
3133 027024 012777 oOD00040 
3495 7032 O12 001 
3496 7036 615708 nha 
3497 be704e 01023 0455.30 
3138 7046 012737 1000 
3200 027054 012712 001000 
3202 027060 011237 001126 
3504 027064 042737 176777 
3506 Oe27072 023737 001126 
3207 027102 104056 : 


MACY11 al 


165722 


001124 


001126 
001124 


SET THE fs 


Te4: 


107 


ae HG rtd;® PAGE 87 


DCLRL 


MxF FLOP AND READ IT BACK. 
MOV CLR, JRHCS2 


MOV aSTACK, SP 
MOV RHC Se Re 
MOV R2, REGADR 
MOV aMXF , SGDDAT 


MOV aMxF , (Re) 
MOV (R2), SBDDAT 
BIC #tC<MXF> , SBDDAT 


CMP SBODAT , SGDDAT 
ERROR S6 


;CLEAR RH11 CONTROLLER 


;SET STACK POINTER. 
;R@=RH11 CS2 ADDRESS. 


;SGDDAT=S/B. 
;LOAD MXF 

; SBODAT=WAS. 
;SAVE ONLY MXF 

; COMPARE RESULTS 


ss 
ae 


RRRAARAARD 
ONTOS! wo 


See nuaeetNeN 


Ww 
w 


$6 DSKLS_CT CTRLRE MACY1LI 301046) alia 11:48 PAGE 88 
10-NOV-77 :09 MXF TEST Sea o0e7 
ser THE JINIBUS PARITY ERROR FLOP DIRECTLY VIA A MOV SUPE TO RHCS2 
ATTEMP To READ IT BACK 
027134 012777 oOD0040 16612 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
027142 012706 001000 MOV aSTACK, SP ;SET STACK POINTER. 
714% 0137 14754 MOV ;R2=RHCS2 ADDRESS. 
re b13299 pice30 MOV RO REGAOR 
5&6 012737 O20000 001124 MOV Roe $GDDAT ;SGDDAT=S/B. 
5 Bbaei6 001124 L30: Moy SGDDAT, (R2) ;ATTEMPT TO SET UPE. 
7 NOP 
74 011237 004.126 MOV (R2), $BDDAT BODAT=ACTUAL DATA. 
00 042737 1577 001126 BIC etc< >, $BDDAT ; AVE ONLY UPE. 
O& 023737 001126 001124 CMP S$BODAT,SGDDAT  ;COMPARE RESULTS. 
16 194057 ERROR 657 


On 


Bo 


“S’6 DSKLS CTRLRE MACYI1 30(1046) mer Af Adz 39 PAGE 89 
10-NOV-77 11:09 T32 Cc UNIBUS ITY ERROR SET TEST 


a5 
: 


SEG cO0&e 


ad 
= 
fu 


OT THe ft I PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A 
pens whee 


goeae 


3233 027236 012777 OO004O 165510 @CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
ea 027244 012706 001000 MOV sSTACK, SP ;SET STACK POINTER. 

4 7250 13792 apes MOV RHCSe Re ;R2=RHCS2 ADDRESS. 

44 4 B18e3 Ss MOV Re GAOR 

es Oeress 37 1124 CLR SGbDA ;SGDDAT=S/B. 

3547 7264 718 o20000 L31: MOV SUPE, (R2) ;SET UNIBUS PARITY ERROR SET. “ 
348 7870 Babe NOP 

3549 727 40 NOP 

3281 027274 012712 900040 MOV BCLR, (Re) ;CONTROLLER CLEAR. 

35 7300 011237 oO MOV (R2) T ;READ STATUS 

seu 7304 042737 Op1 ise 001126 BIC SE ZUPES- SEDDAT : SAVE ERR ‘ 

35 731 3737 001126 001124 CMP SBODAT,SGDDAT  ;COMPARE RESULTS. 

337 g523h¢ artes ERROR $80 


3s 
3889 


C 
c 


eR 


Gta 


nee 


sgppermpe | 


SRE 


in 
wR 


yee 
le 


027342 
07'73S0 

7354 
p70 
et 
027400 


0274 
BBra2e 


-ROV=97 


012777 
012706 


B1ge37 
7 
71 

ae 

012712 


0112637 
042737 


023737 
104060 


tes: MACY11 — of -NOV- 


11:0 


165404 


@6N 


L34: 


UNI 


LER Se 


mo 


LO? 
Gus PARITY ERROR CLEAR TEST 


ECT REGISTER TO DRIVE #7 ALL BITS SET. GENERATE A 


AND VERIFY THAT THE UNIT SELECT REGISTER IS CLEARED. 


#CLR, @RHCS2 ;CLEAR RH11 CONTROLLER 
esSTACK, SP ;SET STACK POINTER. 
BuCRS R ;R2=CSe ADDRESS. 
ceanegror 

DA ; SGODAT=S/B. 


#US4!US2!US1,(R2) ;LOAD RHCS2 DRIVE SELECT 


eCLR, (Re) ;GENERATE CLR. 


(R2), SBODAT ; RHCS2 
ote .Ueu! Uee!US1>  SBDDAT: SAVE DRIVE SELECT BITS. 
PROERT , SEDER ; COMPARE RESULTS. 


SEG 0089 


CZRIHBO,RPO4’S“6 DSKLS CTRLR2 MACY11 30(104%6) 10-NOV-77 48 PAGE 91 
c Pi2 10-NOV-77 11:09 T34 céRe UNIT SELECT CLEAR TEST SEG 0090 


ZRIHB 
3586 
3587 i % 
3588 SET THE FLOP UNIBUS PARITY ERROR. VERIFY THAT THE SETTING OF (UPE) 
: ALSO SETS HE TRANSFER ERROR (TRE) FLOP 
32 027460 012777 OO0O4O 165266 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 
3594 027466 012706 001000 MOV eSTACK, SP ;SET STACK POINTER. 
72 O1 14754 MOV ;R2= ADDRESS. 

es ae §13395 B4d0a0 001124 MOV TRE. 2° s65oat i Seopats /8. r 
3593 227504 012712 O20000 L3s: MOV SUPE, (R2) ;SET UNIBUS PARITY ERROR. 
3601 7510 0137 14 MOV RHCS1 :R2=RHCS1 ADDRESS. 
360¢ 855819 01023 eo3p MOV RoC REGAOR ; 
3604 O27520 011237 0011 MOV (R2) , SBDDAT ;READ REGISTER - 
3605 027524 042737 oo11se 001126 BIC #tC<TRE>,SBDDAT ;SAVE TRANSFER ERROR. 
3607 027532 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS . 

027542 104061 ERROR 61 age 


tata 
ODe 


STARS OST ERREP CTR OTL MON) LEST HS EE. une se0 0081 


361 
312 [REM % 
3613 sEF THE NED BIT NON EXISTANT DRIVE VERIFY THAT THIS SETS THE (TRE) BIT. 
sis 027562 012777 OO00040 165164 Mov #CLR, ARHCS2 ;CLEAR RH11 CONTROLLER 
3012 027570 012706 001000 MOV aSTACK, SP ;SET STACK POINTER. 
3619 027574 0137 014754 MOV RHCS2, Re ;Re=CS RODRESS. 
3e<0 027600 012737 oO40000 001124 MOV #TRE, $GODAT ; SGDDAT= 

02 3700 015136 MOV sTOTALAT,RO ;GET ALL AVAILABLE DRIVES DATA 
3255 DSceTS acta CLR a : 
3624 027614 006000 S36: ROR RO 
30e8 Ge7b 6 10 20 BCS N36 

10112 L36: MOV Rl, (R2) ;SET NED. 

3E53 * 7622 0137 014756 MOV RHCS1, Re ;R2=RHCS1 ADDRESS. 

pSoESe bt 8295 045530 MOV Re, REGADR ? 
350 027632 011227 001126 MOV (R2) , SBDDAT ;READ REGISTER. 
3632 027636 042737 137777 O01126. BIC #tC<TRE>,SBDDAT ;SAVE TRE. 
3E33 7644 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 
3635 7654 104062 ERROR 62 
3639 7660 005201 N36: INC Rl 
36 7662 Oe0i2e7 000010 CMP Rl, #8. 
3E36 7666 001352 BNE $36 
3640 
3641 


CZRJ aig" LS _CTRL 
ESRJne.Ple 1B-NOV=#7. 11208 
364 
364 
027706 012777 000040 
027714 012706 001000 
77 i 44 
rn flee Bie 
7 1124 
027734 012712 002000 
027740 012777 O00040 


Berrse Busea7 175759 


0277 023737 001126 
089590 104064 


RRRRRE 
se 


FRR ERR RRR 
Pe POR ORO EER Seo HE 


E 


MACY11 SPY ONG) 


165040 


165006 


001126 
001124 


SEF THE 


L4O0: 


cae TRANSF ans Hueret 3 SNED 


% 
— SELECT FLOP VERIFY THAT WE CAN READ IT BACK. 


MOV 


SCLR, ARHCS2 ;CLEAR RH11 CONTROLLER 


eSTACK, SP ;SET STACK POINTER. 
RHC ;R2=RHCS1 ADDRESS. 

Be REGPOR ;SGDDAT=S/B. 

@PSEL, (Re) ;SET P SELECT. 

CLR, @RHCS2 ;00 A CONTROLLER CLEAR. 


(Re) T BACK P SELECT BIT. 
atc<P L>, S8DDAT: Aah ONLY SELECT. 


_ ,»SGDDAT ;COMPARE RESULTS. 


SEG 0092 


CZRJHBO,RPOY’S”6 OSKLS CTRLR2 
10-NOV-77 11:09 


CZRIHE. P12 


3665 


REBRER Sa oid sae oOo 


030010 
030016 


Bie 


030036 
030042 


030050 
0300S4 


030062 
030072 


012777 
012706 


1 
Lee 
7 
01271e 
012777 
011637 
042737 


023737 
104065 


MACY11 ~~ ce bans 


. REM % 
VERIFY bai CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER. 


164736 


164704 


001126 
001124 


L4Y1: 


MOV 
MOV 
MOV 
HOV 
CLR 
MOV 
MOV 
MOV 
BIC 


CMP 
ERROR 


CO8 
sT 


V-77 eB PAGE 94 


SEL CL 


#CLR, JRHCS2 
eSTACK, SP 


RHCS1.R 

Re REARBR 
SGODAT 

#11, (R2) 
#CLR, ARHCS2 


(R2) T 
Seco) SBODAT 


SBODAT , SGCDDAT 
65 


;CLEAR RH11 CONTROLLER 
;SET STACK POINTER. 
;R@=RHCS1 ADORESS. 

; SGODAT=S/B. 

; ISSUE A DRIVE CLR AND GO. 
;CONTROLLER CLEAR. 


;READ COMMAND REGISTER. 
;SAVE ONLY THE COMMAND BITS. 


; COMPARE RESULTS. 


SEG 0093 


CZRJIHBO, RPOY’S’& DSKLS CTRLRe 
10-NOV-77 11:09 


CZRJHB. 


3686 
3687 


2888 


RRRRRRRR 
BBVERLG0 


WW 
Nw 
POgDe 


3703 


Pie 


030170 
630200 


012777 
012706 


B1aeg? 
005037 
012737 


012712 
011237 


Sue 


023737 
104066 


000040 
001000 
buse30 

001124 
000340 
000011 
001176 


175558 


001126 


MACY11 30(104%6) 
T4O 


164634 


177776 


001126 
001124 


oil “ct 


fais 
THAN 


L4e: 


10-NOV-77 11:48 


CSRB 


TEST 
RETURN 


MOV 


ED 
NG 


Fee 
CHECK THE C 


Sayer 
eSTACK, SP 


HC 

Bae ARR 
GODAT 
#340,PS 

#11, (R2) 
(R2), STMPO 
(R2) DAT 
se 23) SBDDAT 


SBODAT , SGDDAT 
66 


PAGE 95 
COMMAND REGISTER CLEAR TEST 


te Beas Rae Othe 


"elete NTO ADING ANOTHER REGISTER 
0 GIS ER O DETERMINE IF IT CLEARED. 


PME ABORESS TT'DIRECTLY THE LoGic 


;CLEAR RH11 CONTROLLER 

;SET STACK POINTER. 

;R@=RHCS1 ADDRESS. 

; SGODAT=S/B. 

;SET PRIORITY TO #7. 

; ISSUE A DRIVE CLR AND GO 

;D0 A RESELECT OF THE REGISTER. 


;READ THE COMMAND REGISTER. 
;SAVE ONLY THE COMMAND BITS. 


;COMPARE RESULTS. 


SEG 0094 


CZRJIHBO, RPO4/S 6 DSKLS 
CZRIHB. P12 10-NOV-77 
3714 
3715 
716 
3717 
3718 030220 012777 
7 137 
355) Qansse plaese 
3722 030236 37 
3723 030242 37 
3725 030246 017737 
3786 030254 012777 
3728 7 
3788 Ba0see posaae 
3731 030272 oSe271 
3732 030276 p85 240 
3733 030300 000240 
3735 030302 011237 
3738 030306 pbdbe> 
3738 030310 013777 


CTRLRe 
11:09 


000040 


uae 
Bolt 

164472 
030310 


177998 


000300 


001124 


001176 


001176 
164462 


L43: 


164426 043: 


10-NOV-77 
CSRB COMMAND 


% 
yest TO SEE IF SETTING (IE) AND (RDY) WILL CAUSE AN INTERRUPT. 


MOV 


11:48 
#CLR, IRHCS2 


JRPVEC, STMPO 
sous SREVEC 


aSTACK, SP 
PS 


#IE!RDY, (Re) 


(Re), SGODAT 
67 


STMPO, JRPVEC 


PAG 
SISTER 


96 
SELECT CLEAR TEST 


;CLEAR RH11 CONTROLLER 
;R2@=RPCS1 ADDRESS. 

; SBDDAT=WAS. 
;SGODAT=S/B. 


3 SAVE RH11_ INTERRUPT VECTOR. 
;SET RH11 INTERRUPT VECTOR 043 


;SET STACK POINTER. 


; THIS WILL CAUSE AN INTERRUPT. 


;RESTORE RH11 INTERRUPT VECTOR. 


SEG cOSs 


FO8 


cen zee RPO4Y/S/6 24 te Mad ee MACY11 30( 1046) Pe mys oe hs 11:46 PAGE 97 


JHB.P 12 10-NOV-77 11:09 T42 B READY AND IE INTERRUPT TEST SEG 0096 
3739 

3740 REM % 

3741 THE (IE) BIT IS SET CAUSING AN INTERRUPT. AT THE COMPLETION OF THE INTERRUPT 
a7ve WE CHECK, TO SEE IF THE (IE) BIT HAS CLEARED. 

awa 030334 012777 OO00040 164412 MOV #CLR, IRHCS2 ;CLEAR RH11 CONTROLLER 

3746 osoNe 013702 014756 nov RHCS1 Re ;R2=RPCS1 ADDRESS. 

ing ebess? Bail cx Besa” scooatasve. 

3 030356 017737 64362 001176 MOV ORPVEC, STMPO ;SAVE RH11 INTERRUPT VECTOR. 
3751 030364 012 30414 164352 MOV #044 VEC :SET VECTOR TO O44 

3753 72 O1 001 L44: MOV aSTACK, SP ;SET STACK POINTER. 

3758 030376 ? ere CLR PS : 

3756 Oe 712 000100 BIS BIE, (R2) ;THIS WILL CAUSE AN INTERRUPT 
3757 06 0240 NOP 

3738 030410 000240 NOP 

3760 030412 000411 BR E44 ;NO INTERRUPT. 

3762 030414 011237 001126 O44: MOV (R2) , SBDDAT ;READ RHCS1. 

3763 030420 042737 177677 001126 BIC etC<tE>,$BDDAT ;SAVE ONLY THE “IE” BIT. 

3765 030426 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 

3766 030434 001421 BEO R44 :OK! 

3768 030436 104070 E44: ERROR 70 


3770 O3044G 013777 OO117E 164276 RY: MOV STMPO, IRPVEC ;RESTORE RH11 INTERRUPT VECTOF 


RPO4/S “6 


030SS4 
030564 
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012777 
012706 


013702 
012737 


013705 
0le71le 
013702 
012712 
o00S01e 


013702 
010237 


011237 
042737 


023737 
104071 


000040 
001000 


014754 
000007 


014756 
000007 
014774 
000377 


014754 
04SS30 
001126 


167770 
001126 


MACY11 eo 


164262 


001124 


001126 
001124 


10-NOV-77 
CSRB BOES “IE” CLEAR AFTER AN INTERRUPT 


GO8 
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EM 
HE RE ME VERIFY THAT WRITING INTO THE “AS” REGISTER OWILL NOT CAUSE 


LYS: 


% 
MOV 


@CLR, ARHCS2 ;CLEAR RH11 CONTROLLER 
eSTACK, SP ;SET STACK POINTER. 


-R2=RH11 CS2 ADDRESS. 
Riser desiusi, scobat; ; $GODAT=S/B. 


RHCS1,RS ;ADDRESS OF A DEVICE REGISTER. 
#US4!US2!US1,*Re);LOAD A NON EXISTANT DEVICE. 
RHAS , Re ;R2="AS” ADDRESS. 

#377, (R2) ;ATTEMPT TO LOAD “AS”. 

(Re) ;CLEAR “AS”. 

Ro RE ARE ;R2@=RH11 CS2 ADDRESS. 


(Re) , SBDDAT ; SBODAT 


=wWAS. 
etC< NED! US4!US2!US1>,$BDDAT;SAVE NED AND DEVICE SELECTED. 


 ) ceil eel ;COMPARE RESULTS. 


SEG 0097 


CZRJHBO,RPO4“S’6& OSKLS CTRLR2 
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3803 
3804 
3805S 
38 
380 
3898 
38093 
aif 
381e 
tt 030624 012706 001000 
gals ey 037 0O4S702 
1 4 4566 
3817 030656 OSS56le 
3818 0 
3819 
3820 
3821 
abe 030662 012737 010000 
38e4 70 005037 
ees 
aos 830700 os 7 
Se Bee flee 
3829 030720 004537 047172 
3830 7e4 SO 
3831 030726 OS4S50 
a 
38 
3834 
3835 
3836 030730 004737 045764 
3837 Ole 1 
3633 030742 Risers 001144 


Soe 
Sx 


101 
031016 Ole6i1 


Baeas> = BTeTee 


031032 004737 OS2510 


eee 
£ 
tae 
Niet 
Beare 
ray 
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O0S26S0 


i 


164006 
164002 
015140 


163776 


163726 


EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS 
.SBTTL EXTENDED MEMORY, ORIVE TIMING & SECTOR SELECT TESTS 


MOV aSTACK, SP 
JSR RO - aattee 


-WORD ODI 
-WORD TOLGAP+16 ; 
-WORD O ;DATA 


; THESE ARE SETUP FOR DISKLESS USE ONLY 


MOV eFMT22,aaCYL; sCvL IND EE Ts PER WORD 
CLR oo 5 sKEYI O TRACK 0 


;RESET STACK 
;CLEAR SIMULATED DISK 
FROM 


MOV io) eeateamaiee INO OF “pare WORDS 


MOV $l, 
= RS, a#CRC ;GO TO CALCULATE CRC 
hice 


; THESE ARE REGULAR SETUPS 


JSR PC, ,asCLOISK ; SETUP nen. REGISTERS 
WORDS 


MOV SRHWC :256 DATA 
MOV Sesris: S, ORHEA s STARTING ADDRESS OF WRITE BUFFER 
nek Nbet . i CEO SR O TRACK 
HOV mre , BRHOF i 16 the PER WORD FORMAT 
Vv P) HHRTTE —E DATA= 
bts TCH See resi ; SE ORGER UNIBUS BITS 


Gite cae eerresnerer 


JSR PC, J#COMHD :WRITE D 


SEG 9098 


CZRIHBO,RPO4’S“& DSKLS CTRLR2 MACYLI1 39(1046) 21 -NOV-77 L4:4e :48 PAGE 190 
CZ2RIHB. P12 10-NOV-77 11:05 46 RHCS1 - BITS - EXTENDED ADDR (Al6 & A 17) SEG 0099 

3849 

3850 Fon “ine "eon 2eomroS opt arine’y HERE WITHOUT oBPROB figs gc 

3852 HEADER HEADER ¢ ABER GAP AND AN BvTe’ HAVE GONE BY 

3823 HAND SYNCS ERkkEC CTLY DE ECTED. 

3855 ;DATA IS TO BE CHECKED. 

3857 031036 004737 oO4S464 JSR PC DEPUTREG ;SAVE REGISTERS 

3858 1042 005737 015124 TST He $ : ANY ERRORS OCCURED? 

3859 031050 013700 015140 MOV sTMPILL,RO :G DATA 

3860 1054 012701 0S4S66 MOV SK,R1 ;DATA WR WRITTEN INTO “DISK” 

3861 1060 1270e 000400 MOV seSb., : COUNT ER 

386¢ 1064 012737 000401 oS2770 1S: MOV #257. @8ERWORD ;FOR ERROR WORD 

3863 031076 9260 1 cH , (RLD+ ienanch Tf 6000 DATA WITH DATA ON DISK 

3865 031076 013737 O15140 001124 MOV DeTMPILL aescnoAt Go ma 

3866 031104 O141 001126 MOV -(R1), a8$B8D0 ; 

3867 031110 160237 052770 SUB Re SatRWORD. : WORD NO 

3868 031114 005737 015124 TST aseRFLGS ANY ERRORS ALREADY THERE? 

38639 031120 001002 BNE 2s ; a tke 

3870 O31122 104037 ERROR 37 es N WRITE DATA COMMAND , 

3872 031124 oo0401 BR 64S : BNC TO AVOID PRINTING NEXT ERROR 

3873 031126 104040 2s: ERROR 40 :WORD NO GIV eS WORD IN ERRO 

re bichon 

3876 031130 005721 64S: TST (R1)+ UNDO -(R1) FOR BAD DATA 

3877 031132 017746 1g9002 MOV aSWR, -(SP :GET SWITCH SETTING 

3878 031136 O42716 177177 BIC 4177177 (SP) :KEEP ONLY SWITCH 7 AND 8 

3879 021142 022726 Od00200 CMP #SWO7, ($P)+ :1S 7 SET AND 8 RESET 

3880 031150 005302 3S: DEC R2 :IF NOT COUNT 256 WORDS 

3881 031152 901344 BNE 1$ :BRANCH IF 256 NOT DONE 
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Pi2 10-NOV-77 11:09 T46 RHCS1 - BITS 8 AND 9 - EXTENDED ADOR (Al6 8 A 17) SEG 100 
0311S 012706 co1000 MOV aSTACK, SP ;RESET STACK 
;#THESE ARE TO SETUP FOR DISKLESS USE 
031170 012737 010000 os26S0 MOV aFMT22, J8CYL : ie BIT aPER WORD 
031176 005037 oS26S2 CLR aeSECOTR soect 9 ‘oy 
031202 005037 oS2654 CLR QeKEY1 ik Y 
ite 008037 peseeé &tR = ic IS A READ COMMAND 
1g : 7 Baseee JSR Re” secre 0 CALCULATE CRC 
le pesee8 
;# THESE ARE REGULAR SETUPS 
031226 004737 045764 JSR PC, a8CL ; oa NERAL REGISTERS 
G3i¢ 01 777 177374 163510 MOV 8-260. Oe ; WORDS HEADER WORDS 
l 12777 016264 1 4 MOV BREINTO, aRHEA earn, és ‘oF BUFFER 
031246 77 163510 CLR TR 
031252 012777 O14000 163506 MOV eFMT22!ECI, aRHOF 4 ant Fen woe 
ie connec TON NO TNHIBITED 
031260 005077 163504 CLR JRHCA 
031276 013711 01517 MOV JeREFOR, IRI READ HEADER AND DATA = 72 
;#READ 8&8 SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE’ 
031302 0040327 o464SE JSR RO, J8SAVER AD IN 
ie Biers o His fare esto 
3/318 pAaSS3 i9. HUMBER OF RE otSfereer TO READ 
#NOW ” GO" \ HILL BE N, ace WILL BE BET ATED 
LL OBE GIVEN: NO MF AGNOSTIC DATA 
Se GI SHoutp ING CTOR PULSE HIGH 
TING * *DTE’ WILL COME UP. 
031314 012737 177777 015144 MOV 8-1, a8TESOT 
B3i3s2 835535 123923 015124 MOV 8-1 QHERFLG Ben “BRING. THE AD _HEADER 
SOUT. FTER ante 
ROER HAS BEEN CORRE 
031330 004737 oS2510 ISR PC, J#COMHD ; ’GO’, SEARCH FOR THE SECTOR 
i THE HEADER 


1 ae 032737 100000 00 
1 14 NUE EST ae ’Sc’ = Oth (NG ERRORS} 
1352 727 oO4S4EH JSR a *READ 8 ALL REGISTERS AGAIN 
ms tUNDEFINED DATA TRANSFER ERROR SceURRED 
C2125 104046 ERROR 40 tREAD/WRITE HEADER & DATA ERROR DURING 


1334 017737 163416 001176 SETCKI: MOV ORHCSI TPO ; 1 TO CHECK FOR ANY READ ERRORS 
1176 Shefneo Rec? FA e cf CONDITION" - *SC’ 


On 
g 

uu 
at 


a daoialanccaessssshsee. 


SEERPREREL Aca; 


3 
wo 


SESSESCRSERESS 


wo 
ww 
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031364 BS: ; tRNOw SE Ba "CLOEKS MIL CBE ctve y 


, ol Fae ee am ey 2 Srakcg 4 BYTES 


2h oe a hs ae SB WITH DIAGNOSTIC DATA CLOCKS 


1364 O1 MOV #24. RI OAD COUNTER 
Bie bierte beset ay degen 
631400 710 Go0018 1S: BIS CK'MCLK,@RO ; SET SECTOR ome ge ey BRO D DATA CLOGK 
iio Ae Bbope HOY TEKIRCLK, we COUNTER FD FoR” b1AcNoSTiC C ELOCKS 
B3iaig 525595 reateteed 4S: BIS eMcLK, JRO 980 ¢ rte 
O31ses Boesd o00002 BIC SHCLK, ORO :CLEAR CLOCK 
1436 8 BRE us BROnoH TF” 2 7 NOT DONE 
§3t338 BOT see BNE is 5 COUNT o°2 24 NOT DONE 
;*THIS GIVES S36 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
031434 012701 001030 MOV #S36. $080 SE TOR CLOCK COUNTER 
1440 052710 000010 Ss: BIS Hs bo ET SECTOR CLOCK 
G3 1444 042710 000010 IC BMSTCK, * aRO if LEAR SECTOR CLOCK 
B3iues eae BNE 5 : H IF S36 NOT DONE 
;#NOW ’DTE’ D T 
+E CHANGE Saved” Ree e FERS TO EXPECTED VALUES 
14S4 012737 177400 oO1SGe4 MOV s- aawc RHWC 
p31 018737 016274 O1s0e6 MOV Sie #2>, alia i D RHBA 
031470 0527 i 15032 BIS aSC!T acS1 RHCS1 
031476 7 15034 B15 sOTE ony 
iSO4 7 1 MOV e401 
0315i2 7 14 15054 BIS ie ae0S1 
p3t25e p1s335 Babe bt epSe NOY 1 ane? B RHOST 
p3iese 615939 015134 O15050 MOV Sah TENT, a8AS SAVED HAS 
“ ;#NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
* *#CAN BE DONE (USE THE ’WRFROM’ SAVE BUFFER THIS TIME) 
031542 004037 O464SE ay JSR RO, J8SAVER ; BEAD IN SEQUENCE 
031546 014750 ’ RHWC FROM HARDWARE REGISTER 
O31550 oOlse220 WRF ROM PINTO CORE BUFFER 
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bs 
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014746 045530 


6S: 


7$: 


es: 


38: 


Ne eth 11308 PAGE 103 
ORIVE TIMING ERROR 


19. ;NUMBER OF REGISTERS TO READ 


-#FOR RHAS UPPER BYT 
Move QBAS+1, JOWRFROM+2S ;UPPER RHAS 


; *COMPARE THE HEADER READ 


JSR RO, J#COMPAR ; COMPARE son 
RE INTO fest BUFFER 


6 ‘RETURN FOR ERROR 

7$ : RETURN FOR GOOD COMPARISON 

ERROR 10 ;HEADER READ IN DURING THIS TEST IS 
?IN ERROR 

RTS PC ; RETURN 


;GOOD COMPARISON, CONTINUE 


; *COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND 


JSR RO, J#COMPAR ; COMPARE 
Wc : INITIAL SNAPSHOT BUFFER (CHANGED) 
WRF ROM : TEST SNAPSHO BUFFER 
18. ;NUMBER OF REGISTERS 
es ?RETURN FOR ERROR 
3$ RETURN FOR GOOD COMPARISON 
MOV Q#ERWORD, RS ;GETTING READY TO INDEX 
ADD RS : E ERROR WORD 
MOV RHWC-2(RS),Qa#REGADR -FAILING REGISTER 
ERROR 1 ; IMPROPE REGIST R 
:C AFT ORC ING 
:*DTE’ ERROR 
RTS PC : RETURN 


;GO0D - REGISTERS OK, GO ON TO NEXT TEST 


SEG S1Ce 
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CZRIHB.P12 10-NOV-77 11:09 T4? DRIVE TIMING ERROR SEG 0103 
4037 
4038 031650 012706 001000 MOV aSTACK, SET STACK 
4039 ;#THESE ARE TO’ SETUP FOR’ DISKLESS USE 
3343 031662 012737 O10000 os2650 MOV eFMT22, JeCYL py ; aye WORD 
i043 031670 005037 oS26S52 CLR QseSECOTR fe 
74 4 ik 

aie G3itoa Beets? Geeeee SRE i 

1 1 1 052660 MOV 8-1, 08x ‘THIS IS FOR WRITE DATA COMMAND 

S 03171 047172: ISR RS, SSCRC :GO TO CALCULATE CRC 
0317 YL 
: 0317 WCRC 

4052 ;% THESE ARE REGULAR SETUPS 8 CHECKS 
ages 1722 7 764 J PC, a8CLDISK ;SETUP GENERAL REGISTERS 
4055 §3136e 003995 0338o 163014 ra ac bee OAc bata EGRDS 

1734 012777 015220 163010 MOV SURF ROA, TARTING ADDRESS OF BUFFER 
08? 1742 005077 163014 CLR @RHDS iTR i 
4059 031746 012777 010000 163012 MOV eFMT22, IRHOF iE Carts “PER 

vos ope " iBoE gree PNHIBITED 

1772 013711 be2038 _ MOV et IDAT, @R1 RT 


;#READ & SAVE REGISTERS Fon COMPARISON AFTER SIMULATED *DTE’ 
B34778 QoNg37 O464SE JSR RO, J#SAVER FROM HA STERS Bereeet oe 
14750 RHC 


O3e00e © BbBue3 iS. fink Gi mie RS To RE 


S| RB Be Rta EOE TEE cer 
SAE DotA oD A E 


a 


& 


NN 
-_ 


505 
ous 


4077 032010 012737 177777 O15144 — #-1,a8TESD 
4078 O3201E 012737 177777 015124 MOV 8-1) Q8ERFL be an sain THE rarveh fee 
set : 

032024 004737 052510 JSR PC, J8COMHOD ; ARCH FOR SECTOR, 
a ASSUE HERDER BO ba 


ieee ee 186066 Boise SFT: BOY = SRC Sas mB” FES? FOR + weer CONDI TIONE = "Sc" 


BEG ;CONTI s 
ae O4S464 _ J&R BF seputnec ; READ ‘eat meager ERS AGAIN” IF UNDE- 
4980 O0320S2 104040 ERROR 40 :T eRe ts we READ? tr. HEADER ERROR 
bee ;0 TE’ TEST SETUP 


oe 
~ 
ng 


ty 
& 


ts 


S333 


SELELELSLELSLELSESLELLLLS 
ee a te te te be eh oe ee be be ae ee 


PUL OOO ITN LOU OSBIRRLOULS 


ru 
N 


SESESLESESSLS ELE ELE SCLELLELELELS 
FHEOMH—OSBIEA LOH OBO 


a Oe ae ae ae a Be Be ae an be ae be ba ee Pe no pe be be ee 


on 


7S’6 DSKLS CTRLRE MACYI1 oe) Pe ad tA 125080 746 PAGE 105 
TSO VE TIMING 


10-NOV-7? 11:09 
ae "2s 
GAP 11.8 ore ‘ cy 512, ECC 4 BYTES 
S SGAP Bvies: BYTES, ExtRA 


SREGE. FER SEGTON GLOME. ANE OHYEORD FTO SNCs 
au esyon at aL0cKs KS WIT AN TIC BATA. CLOCKS 


;#THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 


SEG 0104 


tT 


127 000030 MOV #24. ,R1 SECTOR K COUNTER 
O3sbe4 B17 14776 nov SSGHAR, R RO : RSS 
aeu74 08e719 900012 1S: BIS } Text hot, ae ano ; eTok Lock. K BND D DATA = OCk 
neater 7 elated HOV RS* ey ie FoR OrAGNOSTIC DATA CLOCKS 
032110 16 oo00002 4S: BIS a }SET CL 
114 7 ooo002 BIC @MCLK; aRO iC CLEAR CLOCK OeDATA) 
i 1372 BRE Gg : CH IF 7 NOT DONE 
1 1 DEC R : 
Basis? rit ‘ BNE 1 : H IF 24 NOT DONE 
;#THIS GIVES S36 SECTOR enens WITHOUT DIAGNOSTIC DATA CLOCKS 
1 2701 10 MOV #536.,R1 OAD CTOR. CLOCK COUNTER 
635139 p2s701 1 S$: BIS sRerek oRO Ao 44 SEETOR K 
032140 042710 000019 BIC eMSTCK’ JRO ;CLEAR SeetOR” CLOCK - 
032144 0905301 DEC Ri + COUNT 
032146 001372 BNE Ss :BRANCH IF S36 NOT DONE 
» #ECC PATTERN GISTER IS NOT CHECKE 
032150 017737 162634 015064 hov to Se £83 ;RHEC2 HE NOt CHECKED 


;*NOW OTE’ SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES 


S& 005737 017334 TST OgRH70 ;CHECK FOR RH70 CONTROLLER 
62 O0141e BEQ :SKIP RH70 CODE AND DO RH11 IF NOT 
032164 012737 177416 015024 MOV : SAVED RHWC 
032172 12737 015264 015066 Hoy Buae ROA 14, 42>, 0968 jSaved RHBA 
835500 14 BR at s gavED NERY RMLA CODE 
10 O1 77511 O1S024 7S: MOV D RHWC 
a ee ane HE nov warts *2> ae A SAVED _RHBA 
0322 150 BIS bn’ Ss £35 + BAVED RHE RHCS2 
052737 140000 015032 8s: BIS WSC TRE aecS1 ;SAVED RHCS1 
032246 §25535 010000 015034 BIS #OTE, asER1 :SAVED RHER1 


36 


NIN 
bre 


B09 

cena Pie Smarts Sa vrtiehe | wes OnEVE Rina ERROR sin SEO 0105 
HOV ie is aeas 1 mae Ber 

932312 004037 O¥E4Sé JsR_ RO, USAVER ;BEAQ IN "ars 

eae pososs apes SANG ROE RUCTER oe 


rt 
Ge Bt 
SO SEEDAE PREAERMAERSS “BDPTGA® i Sees 
032324 113737 015051 016311 hove’ RMSeASY 1 OWREINTOFRS ; ; UPPER RHAS 


#COMPARE _C D REGISTER SNAPSHOT BEFORE COMMAND WITH 
! #SNAPSHOT AFTER COMMAND 


032332 046660 JSR RO, J8COMPAR 3c 
15024 We ; NIT ag oBUEFER 
4 REINTO ; RA 
18. R OF 6 COMPARE 
25 Sane 
$$ ai TURN FOR GOOD COMPARISON 
013705 052770 2s: MOV QSERWORD, RS ;GETTING READY TO INDEX 


032 
035360 Ofe837 014746 045530 ROY Rric=2¢RS) aaneciR ZFS PINs fee 


i CHANGE a ORCING 


i 
032370 000207 RTS PC 
032372 38: ;GOO0D, REGISTERS OK - GO ON TO NEXT TEST 


“page ceamnteer +07 Danna 


SEESESLESCSE LES ELSES EES EES EL ESE E EL ELSE L ELSE 
= OO Dae Ba as Bae ae Be ae ae bn Be Be ae bas De ae Be ne as se fe ae me ne ae me Be Pe ne ne ne bs Pe ewe 


wo 
on 
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4204 


RPOY’S’6 OSKLS CTRLR 
10-NOV-77 11:0 


032374 


032406 


rea 
eis 
Bens 


032472 


B388i6 
b3e886 


012706 


012737 


bos037 


BY2797 TF 
777 


77 
012777 


Br37ii 
Br4780 


O3ee32 Bdd0e3 


Oe3 


001000 


047172 


17 354 
03558 
014000 


bréi¥2 


O464S6 


MACY WEAOWO) AP 2Y- FF bite PPE 107 se0 o10e 


O0S&006 


OS6046 


162270 
162264 


162266 


MOV eSTACK, SP ;RESET STACK 
;*THESE ARE TO SET UP FOR DISKLESS USE ONLY 
MOV aFMNT22, OSWCYL EYL INOE BITWORDS AND 


CLR CTR CTOR=0 
€LR Shik vis - 

CLR #WKEY tae 

MOV #256. , J#FNWORD 

JSR RS, aeCRC GO 18. CALCULATE CRC 

tint 

;% THESE ARE REGULAR SETUPS & CHECKS 

25) SSSBELUAS.  SEIMEN'ERMSSTEESTE Ben uonos 
Moy SHRFROM, @RHBA ithe TING ADDRESS OF BUFFER 


MOV aFMT22!°eECc!I, aRHoF’ Fats con = PER WORD 
ccc VY phe INHIBITED 


CLR R 
MOV SRR TFOR, ORI Hoe HEADER AND DATA = 62 

;#READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ’DTE’ 
JSR RO, J8SAVER AD IN 

RHWC ; i PEON AARBUSRE REC GISTER 

1 


5. HSeEORE REETETCRS HD So 


CZRJHBO,RPOY’S’”6 OSKLS CTRLRE MACY11 30(1046) 11238, :48 003 108 
CZRJHB TS RROR 


HB.P12 10-NOV-77 11:09 1 pave” TIMING SEG 0107 
4222 
uge3 sarees 60" WILL aBiveN. EVERYTH eye the WI Be of REATED 
4225 :# Le OCK 
sees HaEe gore it ade i OR PULSE, HIGH 
wee? * a T HILL Cc 
4229 032534 012737 177777 015144 MOV 8-1, 1. geTESOTE $67.0 
4230 O32e542 012737 177777 015124 MOV 8-1’ Oee H Hh borers HEADER 
4231 Ano Of Ess) ER T 
uese SRRECTLY READ 
wes 032550 004737 055632 JSR PC, J8COMWHD 1S ae SECTOR, 
4236 
4237 032554 017737 162176 001176 SETCK3: MOV SRHCS! #STMPO Cc ERRORS DURING WRITE 
i238 032562 032737 100000 001176 BIT bia Hoe FBR ie si cee Ss "Cr 
4240 §35255 nerhacia O4S464 FER pe. aspuTRes Reno 8 $0 RS AGAIN if ERROR 
4241 032576 104040 ERROR 4 LZ vers HEADER ERROR 
weve {DURING 'DTE’ REA? SETUP 
deus 032604 4§: ;NOW SECTOR HAS BEEN FOUND 0K 
4246 TOR CL WILL BE GIVEN, 
deus i699 evte FOR cTOR bape 
weve ress B_OYNC, 
4250 a8 BYTE A SYN CARY IE: DATA S12, ECC 4 BYTES 
4es1 GAP 1 PTE T BYTES, EXTRA 3 
u5e5 
4254 ;*#THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
aSep 032604 012701 001141 MOV ® R CLOCK COUNTER 
4257 O32610 052710 000010 SS: BIS Hae bao SPT SECTOR clock 
ueoe 14 o4e710 000010 IC 8MSTCK; JRO seer SECTOR CLOCK 
veeg Gases? Brae Be Sk ISRENGH 1F 536 not pone 
4262 i NOW °DTE® SHOULD BE SET, CHANGE SAVED REGISTERS 
web: *TO EXPECTED VALUES 
426 737 017334 TST aeRH7N RH70 CONTROLLER 
eee 63550 Bpiaas BEQ 6$ i creeK RES CODE AND DOCRHIL IF NOT 


4568 Oasb56 015737 bié240 1203¢ HOY auRPROAY<8. *2>, ag EO AVED R 


1b NE? RHE RUG? CODE 


427 50 0127 77477 O15 6S: MOV #-193., dew -SAVED RHWC 
ie73 56 13535 15426 pi ebSe MOV SWRPROMS CoP. #2>,98BA ;SAVED RHBA 
4275 032664 7 14 1 7$: IS #SC!TRE,aacS1 ; SAV RHCS1 

4276 032672 Ba5739 06700 B20 Bie sik. acSe AVED nee 
4277 032700 052737 O00200 015030 BIS #OR; gaces + OAVED Aces 


CZRIHBO, RPO4/S/ 
Sait Pi2 


4e73 O3e714 
4381 032750 


033030 
033032 


— 


CTRLR 
11:0 


01S0S1 


046660 


052770 
014746 


MACY11 — ag etd ens Fe PAGE 109 


32 


1 

1 
15054 
15066 
1$036 
1S 


O0SO 


016311 


045530 


es: 


3$: 


BIS eOTE, =! ;SAVED RHER1 


BIS ET aay 
MOV #1 aLA 8A 


MOV SaATTENT, a8AS ;SAVED RHAS 

;*#NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE 
i, ONS RE 

iS ‘ANTS. GOR ReGist TE g° #5 TetAD 

;#FOR RHAS UPPER BYTE 
Mov asAS+1,a EINTO+2S ;UPPER RHAS 


; #COMP CHANGE STER FORE COMMAND 
SRT TH REGISTER RNABSHOT AFTER COMMAND 


JSR RO, J#COMPAR 


i onto es 8 SET 
18. st RS TO COMPARE 


2s ‘een re 
os 
3s *RETURN FOR GOOD COMPARISON 
MOV JsSERWORD, RS ; GETTING Y TO INDEX 
ADD EE ERROR WORD 
MOV RHAC-2RS), aerechbeurr ILING REGISTER 
ERROR ; [nenoren REGISTER 
‘CHANGE AFTER FORCING 
:*DTE’ ERROR 
RTS PC RETURN 


;GOOD, REGISTERS COMPARE OK 
:GO ON TO THE NEXT TEST 


SEG 0108 


EfayHe.Ple 10 


4317 
4318 
4319 
4320 
4 


: 


== pee pe Pe pee ee 


Setse2? SBNTS2BNt 


je 


CTRLR 
11:0 


gus7e4 


o000e6 


000023 


00 


047172 


MACY11 30(1046) 
TSe 


015146 


033342 
033350 


SS1: 


SS3: 
sss: 


6$: 


s$s?: 


10-NOV-77 
SECTOR SELEC 


MOV sSTACK SP 
JSR PC, aSCLOISK 


MOV #22. , asTAGOTE 


$4346 PAGE 110 


te ENERAL REGISTERS & CLEAR 


ite 


;#THE FOLLOWING INITIALIZES FOR SECTOR 0 


CLR aeSS3+2 ; CTOR) 
MOV uel -  BUSSH+ R tie Y1) 

MOV % ¥ #555+. R (kK Ye) 

LR gaaar 8 pera oe 

CLR 6 igte :SECTOR (SIMULATED DISK) 
MOV #21.,085S13+2 KEY1 (SIMULATED DISK) 
MOV 21 gessitee is KEYe (SIMULATED DISK) 
CLR 1S+ :SECTOR (RHOST) 


;#CLEAR SIMULATED DISK AREA 


MOV sSECGAP, RO ; POINTER 
MOV #304. ,Ri s COUNT ER 
CLR i + ELE RR SIMULATED DISK AREA 


DEC i 
BNE 2 

; #SETUP WRITE FROM BUFFER 

Mov sWRFROM, RO 

; #HEADER 

Mov eFMT22, (RO)+ sFORMAT 6 pits PER WORD 

MOV ; grb EnDE Foe VARY 

MOV gal cag d+ KEL | TO VARY 

MOV A VARY 

; DATA He, WRITE FROM B FER ALTHOUGH THIS IS DATA AND NOT 

; CTOR WITH SYNC BYTES WILL BE GIVEN AS DATA. 


WORDS, 4 HEADER WORDS 
2 Cine Word 100 ZEROS 


s20ATR 15 Is - 19 ses 0 ae 
$#(DATA), 1 WORD a VRC 8,5 


OR NUMBER TO Yak 
MOV #19. RS TER 
CLR (RO)+ Wag Ya 
mov San YNC (RO) + tN oe = 14400 
MOV #0 (ROS+ i EYRENDER 0 VARY 
ce R83 
JSR RS, aBCRC CALCULATE CRC FOR ABOVE 4 WORDS 
WRF ROM+S0 4 WORDS START FROM HERE 


CZRJHBO,RPOY’S’6 OSKL 


CZRIHB. 


Pie 
033236 
033240 
033242 


O33400 

3406 
033414 
033422 
033430 
033434 


033452 


18-Nov-37 


01S300 
00S720 


Gos0e6 
0013 


013720 
es 
be 


004727 


111 


;PUT CRC HERE 
; INCREMENT RO 


; 6 WORDS OF ZEROS 
:BRANCH IF S NOT DONE 
;SYNC = 14400 


;100 WORDS OF ZEROS 


;SYNC = 14400 
;SECTOR TO VARY 


;#CLEAR REST OF 2S6& WORDS THAT IS S4 WORDS OF ZEROS 


;#THESE ARE TO BE SET UP FOR DISKLESS USE ONLY 


; FORMAT a 16 BIT WORDS 
2 = 


N RHCS1 


are 
ig 8 Brfs PERS PER WOR 


te ERROR FLAG 


CTRLR MACY11 30( 1046) -NOV-77 48 PAGE 
Hen gs steror Secect ion 
WRFROM+60 
TST (RO)+ 
ooo00s MOV 8S. ,RS 
gs: CLR (ROS+ 
DEC RS 
BNE Bs 
052752 MOV DeRSYNC, (RO)+ 
000144 MOV #100. RS 
9S: CLR (RO)+ 
DEC RS 
BNE 95 
2752 MOV JBRSYNC, (RO)+ 
000106 MOV #70. ,R5° 
000000 SS10: MOV 80, (RO)+ 
DEC RS’ 
BNE $510 
oo00b6 MOV aH. RS 
11S: CLR (RO)+ 
DEC RS 
BNE 118 
010000 OS6006 MOV aFMT22, aeWCYL 
o00000 OS6010 ssi2 MOV #0, J8WSECTR 
o000e5 O56 le 3813 nov s2l., » aUKE VA 
Bopsis Beene HOV #308: wae SBF RWORD 
047172 JSR 
WCYL 
GCRC 
;#THESE ARE REGULAR SETUPS 
774 161350 MOV 8-256. 
15 1e1339 MOV SRE ROM HBA 
161346 SSIS: MOV 80, ARHDS 
015172 161334 JSWRIFOR, RHCS1 
161336 MOV uF NT 22, ARHOF 
161334 CLR JRHC 
015124 CLR QsERFLGS 
OSS632 ISR PC, J#COMWHD 


; ISSUE ’GO’, 


COUNT SECTOR CLOCKS, 


SEG 9110 


i 


.Pl2 


0334S6 


JHBO,RPOY’S“& DSKLS ate 


10-NOV-77 11: 


005737 


004037 


O3asi6 


001001 
000137 


015124 


046660 


033164 
033170 
0. ihe 


Bee 
033334 
Sate 
S 
1 
015146 
033134 


MACY11 30( 1046) 
TSe 


16S: 
17$: 


18$: 


SSe: 
1$: 


10-NOV-77 11:48 PAGE 112 
SECTOR SELECTION 


;WRITE HEADER AND DATA 


TST OsERFLGS ;HAVE ANY ERRORS OCCURRED ? 


,#NOW COMPARE onean noes -* a “REINTO” BUFFER 


BER were’ —" FER 

rm fey BEER 

Tes RETURN Po p POINT FOR ERROR HEADER 
168 RETURN FOR good cSRERETScN 

RTS PC 

ERROR 19 ‘ 

RTS 

5 STHE we QhbOHING NCREMENTS ARE TO CHANGE THE ABOVE SET UP 


INC a8SS3+2 ;HEADER (SECTOR) 
(KEY1) 


Dec | Saseess a kev) 
+e ATA (SECTOR) 


NC & 

at iG 
GSS AND SHAPE” 

a Rt 

an ee ee 
JMP aesSsl ;GO BACK TO NEXT SECT 


SEG O111 


cenyrec RPO4’S“6 OSKLS_CTRLRE MACY11 SBC AONE) APENOY EC? 11518 ve 113 


HB.Ple2 10-NOV-77 11:09 ER TESTS U SEG C112 

4a65 .SBTTL DATA TRANSFER TESTS USING ECC 

4467 

44,5 

4469 033610 012706 001000 MOV aSTACK, SP ;RESET STACK 

4471 033622 012700 054470 MOV sSECGAP, RO POINTER 

447, 12701 O40 MOV #258. ,Ri COUNT ER 

447. 7 17777 1S: nov 8-1, (RO)+ iF IMULATER DISK WITH ONES 

4474 1 Cc R 

4475 0336 001 BNE t 

“ 033642 004737 045764 J C, J#CLOISK ;THIS IS USED TO SET GENERAL REGISTERS 

4478 ;#THESE ARE FOR ECC TEST ONLY 

4480 033646 012737 177777 O1S14e2 MOV s-1 eTSECC ;THIS IS AN ECC TEST 

4481 033654 005037 050472 CLR j CLEAR ERROR POSITION COUNTER 

4H 033660 013737 OS0466 os0470 MOV one @ENCOUNT’ ; EMPORARY N-C COUNTER 

448 3666 0137 04 S02 MOV R, JSHADTMP ARY ERROR COUNTER 

4uEY 033674 005037 OS0460 CLR Cc sect RT BE GENERAT D 

448S 3700 005037 62 CLR DSGECC :ECC HIGH GENERATED 

4488 033704 005037 050476 CLR SeDATENV :CLEAR DATA ENVELOPE CLOCK COUNT 

4462 033710 005037 oOS0S500 CLR aSZCODE :CLEAR LEADING ZEROS CLOCK COUNT 

4489 

4450 

4491 

44 ;#THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 

waz 033714 012737 o1000° oS6006 MOV eFMT22, JeWCYL jFORMAT22=16B17 WORDS AND 

4496 033722 012737 ’. 056010 MOV #1, 28WSECTR :TRACK=0, SECTOR=1 

we Gare Gos03? | Bee0i> ce SiiKeNI vies 

4498 056014 CLR Ye 

4499 03 27 900400 OS&046 MOV sess. 9 #F NHORD +256 DATA WORDS 

4500 033746 537 047172 JSR aat :GO TO CALCULATE CRC 

4501 033752 WeYL 

we0e 033754 OSE0I16 GCRC 

4508 ;#THESE ARE REGULAR SETUPS 

4506 033756 012777 177374 160764 MOV 8-260. , IRHWC : A WORDS 4 HEADER WORDS 

4507 033764 Ole7 015220 MOV SuREROM RO ee Bs, ron [vio ® GETS 
0337 0100 160756 MOV RO, dRHBA uaF OM INTO RO AND 

4509 Bus 8 REGISTER : 

4510 033774 012720 010000 MOV eFMT22, (RO)+ =ie BIT WOR os 

yele 634999 545588 000001 2s: Hoy #1, (RO)+ Tmnteeo. SECTOR=1, KEYS=0 

4514 CLR (RO)+ : sKEVE=G 

4515 034010 012705 000400 MOV #256. ,RS : COUNTER 

we16 014 O1e7 000000 3S: nov 80, (RO)+ :;MOVE ALL ZEROS FOR DATA 

sete 6 1088 i 4 BNE 3 RANCH IF DATA NOT COMPLETE 

$513 034024 012777 000001 160730 MOV #1, RHDST RACK=0 SECTOR=1 


CZRIHBO, RPOY/S “6 
CZRIHB. P12 


4567 


goeeee F509 


Sasa a 


rat 


op 
-—-OwW 


hindrance 
Zune 


NN 
rw 


034044 


034072 


oO 
2 
ee eee 
PVrwore 


8 999999 
7 


B HINREN BKE4 


034 


oo 
v4 
furu 
—_ 
Oo 


034212 


DSKLS_CTRLRe 
10-NOV-77 11:09 


005737 


005037 


018172 


818060 
160702 
OSS63e 


015124 


osO46e 


045702 


01S1ie4 


046660 


MACY11 — 


160704 


OSSS&6 


osss70 


17264 
17266 


6$: 


7$: 


10-NOV-77 A}:6 PAGE 114 
WRITE ECC TEST 1 


MOV QAURIFOR, SRL; GET i 
Sov BEnTee, SRHOF ie MAT Bits (iG BIT WORDS) 
; WR 


JSR Pens aeCOMWHO 


;# s pack ten HERE WITHOUT ERROR PRINTOUTS 
ite On THE “COMI “aca NE_THA ANS b R_ON DISK 

5 Soon Ae S TO BE CHECKED TO SEE IF THEY ARE 
Sat 2 DATA GAP AND TOLERANCE GAP TO SEE IF 


TST @sERFLGS ;HAS ANY ERR 


; *COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
CMP @8GECC1 , DBWECC1 ; COMPARE TWARE ECC WITH HARDWARE ECC 


Q 6S ;BRANCH IF 
RROR : R R cin RROR 
CMP gaGECC2, aawecce; ¢ TWARE ECC WITH HARDWARE ECC 
Bee g ; BRANCH GOOD 
ERROR 31 :HIGH ORDER ECC IN ERROR 


;#FILL “REINTO” BUFFER WITH EXPECTED DATA 
JSR s asCLAREA ADH L REINTO BUFFER 
iiiGecaes. #2> TO 

;DATA 


. WORD 
ny Te sc pg Ft Et 
REINTOS «B78. it 


CLR OsERFLGS ;CLEAR ERROR FLAG 


;#NOW COMPARE “DISK” BUFFER WITH “REINTO” 
JSR RO, d#COMPAR ; CHECK 

REINTO :GOOD BUFFER 
DISK ;TEST BUFFER 


SEQ O113 


RPO4Y’S“6 OSKLS CTRLRe 
2 10-NOV-77 11:09 


000207 


MACY 11 hee 


4S: 
S$: 


1Q-NOV-77__ 11:48 PAGE 115 


WRITE ECC TEST 1 


oe 


ERROR 
ERROR 


- UN 


RTS PC 


at N Bo NT FOR ERROR HEADER 


POINT one RROR DATA 
ce che x 
ae NO CO @S6 ARE 
ee 2 e"Becxe 
AGE NOs 260 260 "2879 


;ARE TOLER 
;RETURN TO AO GMPARE 


DDD 
42D 


SEG 0114 


CZRJHBO ag peg craa MACY 11 a where ce” i PAGE 116 





CZRIHB. P12 -NOV-77 11:0 E ECC TE SEG O115 
usa? 034236 012706 001000 MOV aSTACK, SP ;RESET STACK 
4599 
4600 
4601 ; SETUP FOR WHAT IS TO BE READ 
4602 ; HEADER CRC IS RESTORED FROM A SUBROUTINE 
40% Ba 1 v #0,-(SP) ;DATA TO BE READ 
460S $29 B1S5oe eatied Noy sees. ,RS + OO UNTER 
4606 127 OS4SE6 MOV #OISK'RO ;START OF of MUL AT D OISK DATA 
4 iS: MOV (SP), (RO)+ :MOVE I O SIMULATED DISK 

wee DEC r COUNT. 

13 BNE 1 ;BRANCH IF 256 NOT COMPLETE 
4610 ? TS (SP)+ ; YNDO aioe 
4611 3058 CMP (RO)+, (RO)+ ; R THE TWO ECC WORDS 
wole 034276 01270S 000017 MOV #15. ,R5 :1 DATA GAP 
set Ai Me ER Eas 
4614 034302 2s: LR (RO)+ >CLE TA , AND 
4615 034304 398 EC Re ; TOLERANCE GAP 
mat 034306 0013 BNE 2 :BRANCH IF NOT COMPLETE 
4618 
4619 034310 004737 051254 JSR PC, JeFILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
4620 * te te HE CORRECT PLACE 
eee anges ARE FOR ECC vest ONLY 
uesa 034314 012737 177777 O1S142 MOV cc ECC 
4625 Osusee 905037 O50N72 CLR aPOStTT ks je) 9 COUNTER 
weee 326 013737 66 950470 nov a COUNTER ae 

B; 2 05037 Beoved — CLR 8 RT REPNERS D 

Sa GRne ey Bstbe eck ee ‘ "g ie Ne ee 
wo31 pa43ee 37 os0s00 CLR s CLEAR pRADING SEROS EC CLOCK COUNT 
4633 
do38 ;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
4636 O34362 012737 O10000 oS26 MOV aFMT22, J8CYL ie R WORD 
4637 . es age ©: Fe FORMAT 16 BITS 
4638 53 MOV 00,98 COTR+1 iT 
4639 52 MOV: *@#SECOTR 
4640 54 MOV 80’ JUKEY hue 1s J 
ara 56 MOV SkEY Y 
7s 30 nov #256., ad8DAWORD’ NO E pata WORDS 
no ; ir meee 88% aecRe fin Fo! Pal coRAte eRe 
46 
deus WCRC 
4648 
4649 
4650 
4651 :#THESE ARE REGULAR SETUPS 


CZRJHBO,RPOY’S’& OSKLS CTRLRE MACY11 30(1046) 10-NOV-77 11:48 PAGE 117 


CZRJHB.P12  10-NOV-77 11:09 TS READ ECC ENABLED 1A ; SEQ O1lé 
dees 34442 004737 o4s764 JSR PC, aeCLOISK the GENERAL REGISTERS ' | 
4654 O1 777 177 160274 Mov 8-256, -4. ,ORHWC j pATA 
E85 4 012777 bigse4 160270 v NTQ aRHBA ; sits Oe, Oe READ BUFFER 
Mie 112746 MOVB #0,-(SP) ; Be By E 
weae BERG IEC) PenBPR 0000: RB ISS amosr | past NA ie 
4659 012777 10000 160260 MOV aFMT22, IRHOF  Fhnct ee SRERTION - 

eae ta 
034S06 005077 160256 CLR @RHCA ;CYL 
034524 013711 015176 MOV JSREFOR, ORI Scene ADER AND DATA=72 
034530 008037 015124 CLR sERFLGS aha gn 
034534 004737 052510 JSR C, a#COMHD ‘ee 

ERRORS THEN 
ie WILL NO CHECKED 
THE PROGRAM HERE WITHOUT ERROR PRINTOUTS 


a” THAT MEANS ’ 
i. sacs BY BND Synes WE. “aie An 
pHIN C CHEC heh ee T GRE TE PROM BUFFER 


WITH EXPECTED DATA AND 


Bness para passes " BC, ePU REG iSive® ReGiste TPRREAOY THERE 


asses 91401 Feo oF gon IF WL es 
1 OR ' T D BE ZERO 
° ll Be BI S CAN BE SEEN 
;IN THE PATERN Pink ~ 
pausbe 13746 OS0460 6S: MOV @SGECC1,-(SP) : T RAPER, . 
2716 174000 _ Bic #174 (SP) ;KEEP ONLY 11 
7 2b 15064 P £ )+, akEC2 ; R Eres RN REGISTER 
0346 1O4032 ERROR 32 311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


i BRT Bs MAINTENANCE CLOCKS TO 
EBL DOWN 


pEehencrereret itis SAMs ca sasaa 


 pue70) pon8 599089 re 2$: Bt Beth: 8 RHR Blast 


4706_ Me22 > -—aee sae eae BEE re . 
4707 O34624% 001376 - oe t CRANCHTIF 16 CLOCKS NOT DONE 


ESRyue- Ale 1B-ROV=P7 Liz0g |! SPEGO* Repo ECC ENABLED 1A Seo 0117 





4 40 1 MOV auREROM ;GETTI ADY TO FILL EXPECTED DATA 
4709 BSueu9 Bi 308 18000 MOV Tees (RO)+ iCYLI R 

ate it 000001 Mo ieP) apt K IN Hig SyTE 
471 1 MOV i$ (RO)+ ;GET T cfoR IN BUFFER 
4713 4 Ol MOV 8, (R )+ KEY TN GFFER 

4714 1 MOV #0; (RO)+ sKEYe IN 

4715 74 Ol MOV #256. , Ri DAT COUNTER 

471 34 1 MOV #0,Re :DATA 

4717 O34 01 3S: MOV Re; (RO)+ :DATA_INTO BUFFER 

4718 034708 00s DEC R : 

478 710 00 BNE 3 ;BRANCH IF 256 NOT DONE 

4721 

472 712 005037 015124 CLR QsERFLG LEAR ERROR FLAG 

472s Bausté 004737 O45464 JSR Bee EPUTREG i CAVE GISTERS 

4725 

4726 

u7e7 ;*#NOW READ DATA BUFFER WILL BE CHECKED 

4729 034722 004037 046660 J RO, J#COMPAR 3c 

4950 7 15220 i WRER #6066" FER 

4732 O34? Bigees gerne tNURGER OF HORDS. CHECKED 
4733 734 034742 rt or :RETURN Por NT POR ERROR HEADER 
4734 736 034746 $ ; ab te polnt Fo FOR ERROR DATA 
47 742 104004 4S: RROR 4 3R 

47 744 000207 TS PC « ;RETURN TO COMPAR” 

4232 34746 104005 Ss: ERROR 5S j HO Nos TO 4 ARE 

4739 35 TO 260 ARE DATA WORDS 
4740 034750 000207 RTS PC :RETURN TO “COMPAR” 

4742 

4743 


CZRJHBO, RPOY/S/6 _DSKLS 
CZRIHB.P12 10-NOV-77 


4S 
47" 034754 012706 


poe 
es 


76 00S. 
4765 O0350e4% 001375 
4766 


4768 035026 004737 


REGERENER B 


CTRLRe 
11:09 


c01000 


OS4S66 


051254 


010000 


172 


MACY iI oe: ab a een7E 


015142 


050470 
ososde 


OS26S0 


082730 


1S: 


es: 


1:48 PAGE 119 
ED 1A 


MOV eSTACK, SP ;RESET STACK 


t SREADE ror We RESTORE B FROM A SUBROUTINE 


#HEADER CRC IS 
nov -(SP) ;DATA rR BE READ 

Vv a, ; T 
MOV 801SK ; OF SIMUL MULATED DISK DA 
MOV (SP), (RO)+ i SOVE. IN A ON TO Or eTED DISK 
DEC > COUNT 

1 ;BRANCH IF 256 NOT COMPLETE 

Put (SP)+ SURE 0 ) 
CMP (RO)+, (RO)+ ; ER. THE TWO ECC WORDS 
MOV #iS., 
an ore Bele EP 
DEC RS 
BNE 2 :BRANCH IF NOT COMPLETE 


JSR PC, @eF ILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


;#THESE ARE FOR ECC TEST ONLY 


oP a pa iat Necte e NTER 
nov R 4° CUT ai 
CLR sCECES ee HIGH nto OE eeeateD 


CLR #ORTENV : OUNT 
CLR 3 3o cone : aft BATA ERVEL SPE cL ELOCK COUNT 
;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV sFMT22, aeCYL 6B nar pon 
oe meal ie IhOeR HOP aT 16 BITS 
MO a3, sSECOTR Pat 

BEY aworo KES DATA 

CLR x this 1s READ BO EB RMAND 
ISR — 0 CALCULATE CRC 


;*#THIS IS TO INSERT ERROR 
:#THE DISK DATA IS IN LOCATION STARTING FROM *DISK’ 


SEG 0118 


CZRIHBO,RPOY/S“& DSKLS 
CZRIHB.P12 = 10-NOV-77 
480 
- 

4 035160 012737 
y 
+808 035166 012737 
4808 
4809 
4810 
4812 035174 7 
4813 Bia777 7 
4814 012777 
4815 14 118746 
W818 O3see0 11e766 
WBia O36858 615977 
4819 
4820 
422 035240 005077 
4823 
4BSS 095256 013711 
4826 035262 
4827 035266 004737 
4828 
4829 
4830 
483¢ 
wes 
4835 
uaa? 
4838 
4839 
Wea 
4842 035272 005737 
737 
3i2 001401 
4e4G 035314 104032 
8 
4E49 
48S0 
= we bn 
5 
4854 035332 001401 
4855 035334 104032 
4BSE 


CTRLRe 
11:09 


100000 


015124 


MACY11 30(1046) 
TSS 


0S4S70 


03S34e2 


1$7S4e 
1$7S36 


000001 
157526 


015034 


6S: 


10-NOV-77 11:48 PAGE 120 
READ ECC ENABLED 18 


POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
TH S MOVE 


nov #100000, a80ISK+e2 phones RROR ON BIT NUMBER 32 
729 E POSITION REGISTER WILL SHOW 
MOV s22.,ae8S ; INSERT POSITION REG. 


;#THESE ARE REGULAR SETUPS 


JSR PC sCLDISK ; SETUP pee AS toabs 
mi, Reig WO Bode ete eng mor 
MOVE eg ~ T TRA . refed s HER BYTE 
Mov 8 Mtoe, aRHOr : : ei 
; c CTION NOT INHIBIT 
; ee eke S NOT GOING 
CLR @RHCA 7CYL ) 
Hoy 3c FOR, aRi READ q Etacoete=72 
rir im oe READ Fe REA ER RRORS THEN 
idee WCE RO HECKED 


mr nEANS) SECTOR con ‘GaP, PRINTOUTS 


it eb BY AND cries WERE “gi An 


He HATE FA 
ith meee "REA ROM BUFFER 
rahe XPECT D DATA AND 


ers a 


T SYNC 


1s! ve 7 ANY A Reeisrens. THERE 
che ® ras WE RI iat Batic eK ERROR SHOULD BE SET 
ERROR 32 eee ECC wae SHOULD BE NON 
;ONLY 11 OF THE 32 BITS CAN BE SEEN 
; N THE PATERN SFP TEN AMER 
MOV QeGECC1,-(SP) GET BATTERN TER 
BIC #17400 (SP) > KEEP Y 4181 ; 
(SP)+, dbECe C PATTERN REGISTER 
BEG ? BRANCH IF 
ERROR 32 :11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


SEG 0119 


CZRJHBO,RPOY’S’& DSKLS CTRLRe 
10-NOV-77 11:09 


CZRIHB.P12 
4857 035336 
4858 035342 
4859 

4860 

4861 

4862 

y 

4BEM 

486S 

4866 

? 

4 

m4 aie 
ue u28 
4873 035424 
4874 035426 
4875 

487) 

48 

4878 035430 
4879 

4880 

4881 

4882 035436 
4883 O3544e 
4884 

488S 

yQ 

488 

“ 0354 

4 4 
4830 454 
ee 
des 038 
4894 035466 
4895S 470 
4896 472 
4897 

48 

4899 035474 


004037 
000026 


005037 
004737 


051102 





046660 


MACY11 | tee 
TS 


000001 


01S232 


7$: 
8S: 


3$: 


4$: 
S$: 


O-NOV-77 11:48 PAGE 121 
READ ECC ENABLED 1B 


Mt. COUNTER 
TA_INTO BUFFER 

DEC ety COUNT 

BNE ;BRANCH IF 2S& NOT DONE 


; #ONLY He INSERT N PUT in *WRFROM’ 
ihow THE 505s R WILL PUT IN 
@SWRFROM+<S#2> ; INSERTED ERROR 


ISR RO, J#ECORR ;G0 19, CC CORRECTION PROCESS 
22. :EXPECTED POSITION REG. WHEN CORRECTION 
:IS COMPLETE 
MOV BuRE ROM 0 ;GETTI ADY TO FILL EXPECTED DATA 
MOV SO!FMTee, (RO)+ ;CYLI 
MOV #0,-(SP) sIN TE GET SECT OR 
MOV 1(5P) ; GET CK IN HIGHER BYTE 
(SP)+, (RO)+ GET TRACK/SECTOR IN BUFFER 

V ® (ROD *KEY IN ER 

MOV #0’ (RO)+ *KEYe IN FER 


a a ;CLEAR ERROR FLAG 


CLR 
JSR ;SAVE REGISTERS 


;*#NOW READ DATA BUFFER WILL BE CHECKED 


JSR oy RO,aBCOMPAR S08 
em ee 
rr ; Reitr Fas Es ADER 
==. ; TURN ce NT_FOR ERROR DATA 

TS PC ;RETURN TO Cone 
ERROR 5 ;HORD NOS 1 TO 4 PARE 

15-79 260 ARE DATA WORDS 

RTS PC ETURN TO “COMPAR 


SEG 9120 


conse se 4 tm bby 4 MACY11 ro 


Pie -NOV-77 11:0 


4901 
Wa55 038500 012706 001000 
490. 


See O1e700 OS4S66 
oe 
1 


4915 S34 726 

491 $36 e020 

si 038540 O1270S 000017 
4919 035544 005020 

4920 S46 

4921 O3S5S0 001375 

4922 

4923 

49e4 O355S2 004737 051254 
4925S 

4926 

4927 

4928 


4 
4941 035624 012737 010000 


4943 esata 112737 

4944 7 

ee Bee Ae 

a SY Ol 

7 ee fee 
seus 74 7 1 
et eres fecees 

4952 

4953 

4954 


- 


01S14e 


050470 
ososoe 


18: 


es: 


} -NOV-77 11:48 PAGE 122 
R ECC ENABLED 1B 


MOV 


aSTACK, SP ;RESET STACK 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


JSR 


; # THESE 


49 -(SP) ;DATA To BE READ 
#256. ,RS COUNTER 
#01SK'RO PSTAR T OF SIMULATED DISK DATA 
cs ), (ROD+ Bove IN DATA ON TO SIMULATED DISK 
B jBRANCH IF 256 NOT COMPLETE 
(RO)+, (RO)+ kit over’ THE TWO ECC WORDS 
#15. ,R5 1 DATA GAP 
(RO)+ Gea Bara Fag AND 
RS TOLERANCE 
2s ‘BRANCH IF NOT COMPLETE 
PC, J#F ILLEC j INSERT T TWO ECC WORDS ON THE DISK 
:IN THE CORRECT PLACE 
ARE FOR ECC TEST ONLY 
QeTSECC ;THIS IS AN ECC TEST 
TI ;CLEAR ERROR POSITION COUNTER 
sNC QsNCOUNT’ ; Y N-C COUNTER 
R, JSHADTMP : TEMP Y aERROR COUNTER 
SGECCI ; ¢ LOW ORDER TO GENERATED 
a Ce C HIGH R TO BE GENERATED 
JBDATENV :CLEAR DATA LOPE CLOCK COUNT 
asZCODE :CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


eFMNT22,a8CYL a8 {ho me R WORD 
» FORMAT 16 BITS 


80, J8SECOTR+1 
$0: ne #SECOTR i Te 0 
KEY ;KEY1= 
Y 3KE = 
sos SDAWORD NO. OF DATA WORDS 
aX *THIS IS A READ COMMAND 
RS, J8CRC :GO To CALCULATE CRC 


= ne ERROR 
ATA IS_IN LOCATION STARTING FROM ‘DISK’ 
TION OF THE ERROR CAN BE CHANGED BY CHANGING 


SEG 0121 


CZRIHBO, RPOY’S “6 DSKL§ CTRLR@ MACYI1 S9C}ON) a boas 11:48 PAGE 123 
CZRIHB.P12 10-NOV-77 11:09 S6 ECC ENABLED 1C eared toe ee SEG Olze 


4957 ;#THIS MOV 
4958 035704 012737 177760 0S4S70 Mov #177760,98DISK+2 ;FORCE ERROR ON BIT NUMBER 21 THRU 32 
4958 ; g ERROR POSITION REGISTER WILL SHOW 
4361 035712 012737 O10040 036066 MOV #4128. ,a88$ : INSERT POSITION REG. 

u9e3 

4364 ;#THESE ARE REGULAR SETUPS 

4966 035720 004737 ous764 JSR PC, J8CLDISK ;SETUP_GENERAL GISTERS 

4967 724 012777 1773 157016 MOV #-256.-4. ORHWC 3256. AY WORDS 

4568 7 012777 4 157012 MOV r NIQ aRHBA CO; START NG OF READ BUFFER 
4969 ? 112746 MOVB #0,-(SP) 7IN L BYTE GET SECTOR 

4970 035744 i187 909900 000001 MOVB #9 1(5P) :GET TRACK IN HIGHER BYTE 

4971 038752 126 157004 MOV (SP)+, QRHDST ; K/ cr IN RHDS 

4972 035 012777 io000 187002 MOV sFMT22, IRHOF ;16 BIT R WORD 

4973 sEco C CTION NOT INHIBIT 

4974 i BEC CC IS NOT GOING 

4975 5 CK 

4976 035764 005077 157000 CLR @RHCA :C R 

4977 036002 013711 015176 MOV DeREFOR, OR] * RE R AND DATA=72 

4978 036006 005037 015124 CLR aeERFLGS >CLEAR E FLAG 

4979 036012 004737 052510 ISR PC, asCOMHD ; READ HEADER AND DATA » 

4980 ‘IF HE — ARE ERRORS THEN 

4981 :ECC WILL NOT BE CHECKED 


cenreo RPO4/’S’& DSKLS_ CTRLRE MACY11 30(1046) 10-NOV-77 11:48 PAGE 124 


JHB.P 12 10-NOV-77 11:09 TS6 READ ECC E ED 1c SEG 0122 

4983 
4984 ;# FT PROGRAM Cc K HERE a} HOUT ERROR PRINTOUTS 
aH Piet eee Ie Se GES oe 
4387 feet ri te reADER "eRe YNCS ne EEE CORRECTLY 
does 8 ARE To BE CHECKED é 
4990 ee CPEB eat THE, We FROM BUFFER : 
4991 LED WITH EXPECTED DATA AND 
i335 
4994 036016 005737 015124 rer QaERF V ERRORS BL READY THERE 
4989S 036024 004737 045464 JSR ne at REGISTE 

30 022737 100000 015034 CMP nite aseERI CHECK ERROR SHOULD BE SET 
4997 036036 001401 BEQ 6$ 
4238 036040 104032 ERROR 32 ; IT ECC REGISTER SHOULD BE NON 
eaca - ONLY 1 OF THE 32 BITS CAN BE SEEN 
5001 } IN THE oe GISTE 
5002 ; OCK K SHOULD BE N RHERI 
5003 036042 013746 OSO460 6$ MOV QeGECC1,-(SP) ; GISTER 
5004 0427 174000 BIC #174000; (SP) KEEP ONLY YH pit 
500s 2637 015064 CMP (oP)+, dheCe iC TIER REGISTER 
5006 036056 1401 BEO ? H IF 
2007 0 104032 ERROR 32 :11 BITS OF CORE 32 BIT ECC REGISTER INCORRECT 
50039 036062 004037 051102 7$ JSR RO, J#ECORR ;GO_ TO ECC CORRECTION PROCESS 
2010 036066 5 WORD tENPECTED p POSITION REG. WHEN CORRECTION 
5012 
Bat 
5015 936070 004737 oO4S464 JSR PC, J#PUTREG ; SAVE REGIST 
5016 74 022737 100100 015034 CMP #OCK'ECH, J8ERI jWITH ER ER ASERTED IN BIT POSITION 21 
5017 oBRROR BIT SHOULD SET 
5018 036102 001401 BEO 9$ * BREN Noite 
5019 036104 104036 ERROR 36 tWITH ERROR” INSERTED IN BIT POSITION 21 THRU 
5020 +32 ECH SHOULD SET 
5021 
5022 
5023 
ep5¢ B3e1S8 0127 1522 - MoV TTING READY TO FILL EXPECTED DATA 
5026 ies 6187 185 MOV agiFntge, (RO)+ Gr inbeR’ 
5027 1 112746 MOVB 80, - :IN LOWER BYTE GET SECTOR 
5028 134 1127 oco000 000001 MOVB #0'1(5P) ;GET TRACK IN HIGHER BYTE 
2029 142 Ol MOV (SP)+. (RO)+ :GET TRACK/ ECTOR IN BUFFER 
50 144 O1 go0000 MOV 80, (RO)+ K vi IN N 
5031 1SO 0127 MOV #0’ (RO)+ KEYS FER 
e03e 036154 O1e701 900400 MOV sese., A WORD COUNTER 

36160 O1 52 000000 MOV 80, BA t 

5034 036164 C2 3S: MOV Re, (RO)+ :DATA_INTO BUFFER 
5035 036166 301 DEC R : T 
2036 036170 1375 BNE 3 :BRANCH IF 256 NOT DONE 


C2RJHBO,RPOY’S-6& OSKLS CTRLR2 


CZRJHB. 10-NOV-77 11:09 


Pile 


036172 


012737 


177760 015232 


015124 
O4S464 


046660 


MACY11 30( 1046) 
TS6 


4$: 
Ss: 


10-NOV-77 11:46 PAGE 125 
READ ECC ENABLED IC 


;ONLY GOOD DATA HAS BEEN PUT IN ’WRFROM’ 
;#NOW THE INSERTED ERROR WILL BE PUT IN 


MOV #177760, J8WRFROM+<S#2> ; INSERTED ERROR 


CLR QsERFLGS -CLEAR ERROR FLAG 
ISR PC, J#PUTREG ;SAVE REGISTERS 


;*NOW READ DATA BUFFER WILL BE CHECKED 


JSR. RO, a#COMPAR ; CHECK al 
RE INTO 19008 ae, 
44 ; HECKED 
4g ;RETURN POIN CORROR HEADER 
S$ TURN PO MT FOR RROR DATA 
Scenes Ane ees 
ERROR 5 3 NOS 1 + 4 ARE 

260 ARE DATA WORDS 
RTS PC iB Tone ie BF pal 


SES Cle4 


CZRIHBO REO4/S“6 DSKLS CTRLRE MACY11 30(1046) 19-NOv- -77 Il: ids, PAGE 126 
CZ2RIHB.P12 10-NOV-77 11:0 TS6 READ ECC EN SEG cles 
9 |. 
5070 036242 012706 co1000 MOV wSTACK, SP ;RESET STACK 
? 4 Ol 700 4470 MOV aSECGAP, RO ; POINTER 
? ? Saouco MOV #304. WRI : COUNTER 
74 4 1S: CLR (RO)4 ‘CLEAR SIMULATED DISK AREA 
2075 o36573 905301 DEC R 
5007 p3e35 parte 04S764 JSR be, CLDISK ;THIS IS USED TO SET GENERAL REGISTERS 
5079 ;#THESE ARE FOR ECC TEST ONLY 
epet 036276 012737 177777 0O15142 MOV s-1 get cc HIS S15 AN. EC cc tT EST 
5082 036304 005037 O5047e CLR OsI FON COUNTER 
5083 036310 013732 Ove6 050470 MOV BaNcO0e asnc wr'° PRPDRART ned COUN 
5084 036316 0137 0504 os0soe2 MOV Ra EMPORARY ERR 
508s 005037 De0460 CLR gece C cl ia LOW 9 GENERA EOE 
5086 505037 0462 CLR cc c¢é HIGH Fa 0 GENERATED 
5087 036334 050476 CLR SEDATENV :CLEAR DATA CLOCK COUNT 
5088 036340 005037 OS0S00 CLR + CLEAR PEADING EROS CLOCK COUNT 
5090 
5091 
5092 
5093 ;#THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
2bee 036344 012737 010000 oS6006 MOV sFMT22, eWCYL Fore 2=16BIT WORDS AND 
e5e8 012737 000001 oS6010 MOV 81, J8WSECTR fee 8 gecTOR= 1 
5098 pien35 05601 CLR SalikEY Y1 
5099 036364 905037 056014 CLR OSLKEY 
5100 036370 12737 OS6046 MOV Bese #F NWORD s KEY enaTA WORDS 
5101 76 004537 7172 JSR atRC :GO TO CALCULATE CRC 
5102 402 erat WCYL 
5103 404 i6 GCRC 
5105 ;#THESE ARE REGULAR SETUPS 
£107 O36406 012777 177374 156334 MOV 8-260. , IRHWC ; TA 4 HEADER WORDS 
5108 414 912700 015220 MOV SBEROM RO Frese" Tuo PRUCTION NS GETS 
£109 420 0100 156326 MOV RO, JRHBA : . OF ROM INTO RO AND 
5110 i BUS ADDRESS REGISTER 
etit 036424 012720 010000 MOV sFMT22, (RO)+ iF =16 IT WORDS 
eit§ 0 430 012720 000001 2s: MOV #1 (RO)+ 5 Reo SECTOR=1, KEYS=0 
114 0364 piers CLR RO) + :KEY1=0 
115 38 CLR :KEYe= 
118 4 099400 Vv seca. RS > COUNTER 
e112 wnt 7 17777 3S: mov g-1, (RO)+ :;MOVE ALL ONES FOR DATA 
e119 O3645¢ 1374 OF 33 ANCH IF DATA NOT COMPLETE 
e - 4 012777 000001 156300 MOV #1, 9RHOST RACK=0 SECTOR=1 
Eize 
Ele3 C36474 013711 015172 Mov JseWRIFOR, dR1 :GET READY FOR WRITE HEADER AND 
e124 :DATA WITH &2 IN RHCS! 


EES=SRRIRR LORE BE UPD : 


0 Os oh a 


pS 


wi 


Os = be = 0 Bb OO Fe Be Bb bs be BO 9 bb Bb ob bo sh BB Be ho be be Be hs he he 


BIB Vo Zor Gok WO efor OD VOUT e woe Gabe ae 


Bie iB-nOv=97 11:08 YE SPEDON®) LAPTEECG nesta PACE 1°? SEO 0126 


B3peq 803935 818059 156254 cue SPTOS SRHOF «© SFDRMAT BT fel Cie BIT WORDS) 
Bseere | pnsa7> CLR A CYLINDER = 
pseele Boass> decease 3§R  SBCOMWHD IGRTTE HEADER AND DATA 


#IF THE PROGRAM COMES ay HERE WITHOUT ERROR PRINTOUTS 


:#1S GOOD a. at ee 15 1S BE CHECKED’ on SEE fe Supe hee 
a One? be DAT AND TOLERANCE GAP TO SEE IF 
tal Y 
ANY 


a 
z 
3 


ALL Z2E 
O36S22 005737 015124 TST OsERFLGS 


Be 


nora CURED? 
OCCURS ECC IS NOT CHECKED 


; COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 


036530 023737 OSO460 OSSSEE CMP DaGECC1 , DUWECCI;C TWARE ECC WITH HARDWARE ECC 
036536 001402 BE 64 H F eee anae 
Gee ABH eee beh, Sl 
O36544 3737 oso42 osss70 6S: CHP gececce, , IOWECC2; iC ONPARE TWARE ECC WITH HARDWARE ECC 
p3eees 104031 ERROR 31 i HIGH ORDER coee IN ERROR 
036556 7$: 
;#FILL “REINTO” BUFFER WITH EXPECTED DATA 
036570 037 o4S702 JSR asCLAREA EabL REINTO BUFFER 
ee 13523 RE INTO+<2ss. #2> a 
T35585 .WOR DATA 
13737 OSO460 017264 MOV NTO+< #2>; ECC1 
1 3335 Deoes 17266 MOV ie ein #2) iF iL ECCe 
18 7 Basse J SCLAREA 
515554 ATi oet st. Bef 
Oseese Ba0000 0 : ona 
036630 905037 015124 CLR QeERFLGS ;CLEAR ERROR FLAG 
;#NOW COMPARE “DISK” BUFFER WITH “REINTO” 
eran 904037 046660 ISR RO, a#COMPAR s CHECK - 
3664 Devebe DISK ;TES FER 
036644 9004 ese. NUMBER OF WORDS CHECKED 
O36646 O26654 4g TRETURN POINT FOR ERROR HEADER 


eed eed aed ed ceed el eed ed eed eed Sed Sed ed ed ed eT 


UU UU TUT UU 
ve 


“y 


P 


HB0, RPO4’S & DSKLS CTRURE MACY 11 30(1046) 10-NOV-77 11:48 PAGE 128 
H8.P12 10-NOV=77 1 S? WRITE ECC TEST 2 SEG 0127 
1 036650 0 ;RETURN POINT of OB RROR DATA 
36654 iov07 4S: RROR 7 - ERRO next 
3 000207 TS PC 
eB 036660 104010 Ss: ERROR 10 NOS Bios "= 0 OE ARE 
86 
87 ARE EC WHI cH ARE oepeCKED 
83 ig Ris ° 
30 ;WORD NOS 260 TO 273 
31 tARE TOLERANCE GAP 
3 036662 000207 RTS PC tRETURN TO COMPARE 
34 
Qs 
96 


2 3 
8 “J 


8g 


: 


Seseneee 


ae te a be ee be ae 
WOO NOUS Wl O 


fofofororoforororuforare 


Ho} 


enn MACHR AAT 
AGT ee PPA MAIR INL ft 


Pile 


RPOS “S / 48 pKLS, 


CTRLR 
11:0 


036666 012706 6001000 


037012 


77777 
OS4S66 


051254 


MACY11 “> where ce” 11:48 PAGE 129 


01Si42 
050470 


ososoe 


0S26S0 
33 


S4 
2656 
730 


1S: 


eg: 


E ECC TEST 2 


MOV eSTACK, SP ;RESET STACK 


SETUP FOR WHAT IS TO Be READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


MOV s- ~(SP) ;DATA To BE READ 
MOV $286... ; COUNTE 
MOV eot RO jSTART OF oS TRUbATED DISK DATA 
MOV if ), (ROD+ ; HOVE DATA ON TO SIMULATED DISK 
BNE 1§ COURT F 256 NOT COMPLETE 
S (SP)+ s UNOS -(SP) 
Cc (RO)+, (RO)+ : JUMP R THE TWO ECC WORDS 
MOV #15. ,RS :1 DATA 
314 pote —E GAP 

CLR (RO)+ ; CLEAR TA GAP, AND 
DEC RS : TOLERANCE GAP 

2s ;BRANCH IF NOT COMPLETE 
JSR PC, MHF ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 

?IN THE CORRECT PLACE : 

#THESE ARE FOR ECC TEST ONLY 

8-1. a8TSECC sIHIS IS AN ECC TEST 
CLR TI AR ERROR POSITION COUNTER 

#NC QsNCOUNT’ ; Y N-C COUNTE 

BHARDER, TMP’. TEMPORARY RROR COUNTE 
CLR agecCl sect Low R 19 GENERATED 
CLR C ;ECC HIGH R TO GENERATED 
CLR SDATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
CLR a8Z2CODE :;CLEAR LEADING ZEROS CLOCK COUNT 


;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV eFMT22,aeCYL sA6 BITS PE PER WORD 
Reno , FORMAT 16 BITS 

MOVB ae COTR+I 

MOVB COTR 

MOV v1 

MOV 0: 30K Y ik Y2=0 

MOV oF Pata WORDS 

CLR i THis 18 AD COM 

JSR Rex pecne 0 PAL CULATE CRC 

WCRC 


;*THESE ARE REGULAR SETUPS 


SEG Oizé 


CZRJHBO, RPOY’S”6 OSKLS CTRLR2 
10-NOV-77 11:09 


CZRIHB.P12 


ses 


Sao aan eS aa a RTON SEE GOT EEN SOTA Se RRR EOE 


008077 


013711 


ies 
ee 


1SS626 


015176 


> Bé3éfo 


7 


MACY11 30( 1046) 
T60 


con 40 


1$S630 


6S: 





10-NOV-77 11:46 PAGE 130 
READ ECC ENABLED 2A 


JSR PC, ae#CLDOISK ee REGISTERS 


Ri taba aatB” [etka PO alolEROEeRERD ourren 
MOVB a0, m8, ;IN LOWER, BYTE TSEC TOR 
ye 09,1 (56 SRHOST Fihox7 Cron th HARros 


MOV aFnT28. ORHOF i ee 8 qRQT iNWIaIT 


CLR @RHCA ;CYLINDOER O 


nov G4REFOR aR ;READ HEADER aND DATA=72 
See gee RrLGS tREAD HE ADEE ARB pat DATA 

;IF THERE ARE READ ERRORS THEN 
:ECC WILL NOT BE CHECK 


;*#IF THE PROGRAM COMES BACK HERE pe ERROR PRINTOUTS 
;#FROM THE “COMHD™ OROUTINE THAT MEANS SE 


LURE GPT il he EVAN hes DERE ce 
SR a PecBeLindrEsPee ten Ss OwSe™ 


1 EF Stas EB Se oo 
3 ca Fe Fil 


enn ate Me CAN BE SEEN 
i cath) ol 
Pattern REGISTER 


Hoy #18009 (58 (SP) 
CMP se, aheee 

PE Ror 75 PROT Ts OF one 32 BIT ECC REGISTER INCORRECT 
;#ADD 16 MAINTENANCE CLOCKS TO 

:#BRING EBL DOW 

M 

Bs SHeLK PSRHMR OHNE BK 

BIC o ; CLEAR CLOCK 

BNE BRANCH IF 16 CLOCKS NOT DONE 


SEG 0129 


ei 9) 


N10 





ZRIHBO REOW/S/6 DSKLS CTRLRE MACY11 30( 1046) 10-NOV-77 11:48 PAGE 131 
JHB. P12 10-NOV-77 11: 60 READ ECC E ED 2A SEQ 0130 
10 7270 Ol 1 MOV SWRE RO *GETTI ADY TO FILL EXPECTED DATA 
esi? Bi MOV Tred, (R04 ;CYLINDER 
pale 7 il MOVB ; ~(SP) ;IN LOWER BYTE GET SECTOR 
pai 1 000001 ( ;GET RACK NH BYTE 
14 73ie Ol MOV (SP)+, (RO)+ GET TRACK/SECT N BUFFER 
esis 4 Ql DO0000 MOV F (RO)+ 5K Vs iN ER 
16 ? 1 ho00000 MOV r (RO)+  KEY2 IN FER 
5317 c 00 MOV es6., Ri *DATA COUNTER 
2318 1 177777 _ MOV #-1, ' Re :DATA : 
2339 037334 O01 3S: MOV Re, (RO)+  ;DATA_INTO BUFFER 
235} 037346 at BRE BY i CRANCH IF NOT DONE 
5323 7342 015124 ite a SERFLGS ;CLEAR ERROR? FLAG 
5324 037346 O04 045464 ISR PC, J#PUTREG ;SAVE REGISTERS 
5328 ;NOW READ DATA BUFFER WILL BE CHECKED 
5328 037 004037 046660 JSR RO, J8COMPAR ; CHECK 
5329 037356 01S220 5 GOOD FER 
5330 037 016264 REINTO :TES FER 
533 362 O4 4+ ; CHECKED 
33ee 36 eg : t iN F ERROR pare 
e334 037372 104004 4§: ERROR iR AD NEXT BRROR 
5335 0373 07 RTS PC :RETURN TO “COMPAR” 
5336 037376 104005 SS: ERROR 5 ;HORD NOS 1 TO 4 ARE 
2332 :S TO B60 ARE DATA WORDS 
2339 037400 000207 RTS PC :RETURN TO “COMPAR” 
5341 
5342 


CZRIHBO, RPOY/S 76 tm Ba bee 4 MACY11 |) te ad -NOV-77 11:48 PAGE 132 


CZRIHB. P12 10-NOV-77 11:09 ECC E ED 2A SEQ 0121 
037404 012706 001000 MOV eSTACK, SP ;RESET STACK 
FOR WHAT IS T 
R CRC IS bath? A SUBROUTINE 
rr7ee V TA 9 BE READ 
000400 MOV START OF SIMULATED DISK DA 
1S: MOV ee N DATA 0 OT RULBTED DISK 


A F 2S6 NOT COMPLETE 
SURE R THE TWO ECC WORDS 


ae alias Pe ao ns Se PES wo 
Gertee BO8e oc TERRA GRE ere 


051254 JSR PC, dF ILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


Pr gRORAOS 





eRneeeeeaatnnenamnaaeeaS 
aa 


un 
e 
& 
2 
r 
: 


cote ARE FOR ECC TEST ONLY 


peccae MOV 2 he EOUNT TER 


CLR at te Ore “Ene RATE 
Eth AV EENERATED 
CLR # si ee ‘a tite ee eLOck COUNT 
;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
oS26 MOV sFMT22, eCYL ag 8 
yes ; ae ‘ FORMAT 16 BITS 


Sseeee no a TR iSECyO 
Oseese ny 3 3 


IS A TREAD COMMAND 


oO 
7 
®D 
rite 
4 
sie 
43 
x 
ee 





HAIERSUSESRNSBREB IS WISI SEE 


an tbe G0 0 CALCULATE CRC 
WCRC 

6397 

$338 ati’ Sy IS TO INSERT ERROR 


#THE DISK DATA IS IN LOCATION STARTING FROM *DISK’ 


w 
B 
w 


CZRIHBO,RPO4’S’6 DSKLS CTRLR2 MACYI1 30(1046) -NOV-77 11:48 Cll 133 
Tol ribo’ nabcé 







CZRIHB.P12 10-NOV-77 11:09 cc E D 2B SEQ 0132 
5400 ;#THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
eued ;*#THIS MOVE 
= 037610 012737 077777 0S4S70 MOV #77777, aeDISK+2 ;EORCE ERROR. ON BIT NuME B32 et 
40S i3e 
B08 037616 612737 000026 037772 MOV #22. , 9988S ; INSERT POSITION REG. 
53 ;#THESE ARE REGULAR SETUPS 
Sui 037624 004737 o4s7eN ai JSR PC Ci DISK oe pee 4s aBeSs 
ats 355 bf 4 teetse HOV NTO 4 oat” wa ae BUFFER 


5 a 
Sf a ae pier 


1 
5416 §S1 MOV T 

eva 7662 2777 610000 155076 MOV SFMT 23 ORNOF * ieee 

at ete Ror dorne 

4 7670 55074 CLR A 

cuss BU7GCe BOSTT ATEIre Sof BEePon om » 0 oaTAe7e 

S423 037712 15124 CLR gue LG$ R FL 

Sued 037716 004737 052510 ISR C, a#COMHD eee DATA ona 

Bue PRHECKED 

5428 

5429 saIF oT “hee WIT echon gee PRINTOUTS 
3430 ;# HE ret ete T MERRY 

431 EFIRST Sync 

B32 cRres WERE ae 

4 jaBe T cTe 

2u3¢ iain CK RING READ TA ie bate ED. FER 

ERE ues Hh WITH EXPE TEp Bara AND 

cy 

54 7722 005737 015124 ; T sERF READY THERE 

5440 0377 te 045464 J : BEPUTREG ‘ae Ei: TE 

44 77 27 100000 015034 CMP eK, JSERI ERROR SHOULD BE SET 
442 037742 001401 Q 

443 037744 104032 RROR # Ec GISTER SHOULD BE NON 
44s geet OF THE 32 BITS CAN BE SEEN 
: Ne THE PATERN of We 

aug RHER1 

48 037746 013746 os0460 6S: Mov QeGECC!, 7isP) ; Pan as 

Bus6 037786 4 4 bi epe4 ene te) #009, ($B) Se Dal E REGISTER 

pipe 037764 1040322 ERROR 32 Sees BITS OF THE 32 BIT ECC REGISTER INCORRECT 
S454 037766 004037 051102 7$: JSR RO, JKECORR :GO TO ECC CORRECTION PROCESS 

ExsS 027772 O00026 eS: 22. ‘EXPECTED POSITION REG. WHEN CORRECTION 


CZRIHBO, RPO4/S’6 DSKLS CTRLR2 
CZRIHB.P 12 10-NOV-77 11:09 





S476 O40060 012737 077777 
S477 040066 004737 O4S464 
S478 O4007e 005037 015124 


5479 

5480 

5481 

2485 040076 004037 046660 
S484 O04010e 015220 
S48s apt 4 
S4 1 

S4 04011 116 
S4 Rint ie 040122 
SY 116 104004 
54390 040120 000207 
S491 O40lee 104005 
5492 

5493 


MACY11 30(1046) 
Tél 


3$: 


01Se3e2 


4S: 
SS: 


10-NOV-77 11:48 PAGE 134 
READ ECC ENABLED 28 


;I1S COMPLETE 
Mov HUREROM RO, STADE ie TO FILL EXPECTED DATA 
MOV r a ; IN T SECTOR 
MOV #0'1(5P) ; R BYTE 
nov ( )44(ROD4 iG t 4 K/ ECT N BUFFER 
MOV #0; (RO)+ if ee FER 
Vv sos R1 iD HORBUCOUN 
MOV #-1,Re 
HOV Re, (RO)+ ; TA INTO BUFFER 
BNE 3s ; H IF 256 NOT DONE 


; #ONLY 3009 TA_HAS BEEN PUT IN ’WRFROM’ 
;*NOW T INSERTED ERROR WILL BE PUT IN 
MOV 877777, QBWRFROM+<S#2> nck tfence? ERROR 


JSR PC, J8PUTREG s PAVE FE 
CLR astRFLGS CLEAR Egist FLAG 


;*#NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, J#COMPAR ; CHECK 
WRF ROM ; GOOD SFR 
RE INTO NR FER arent 
4§ ; Porn NT Pea OR ERROR HEADER 
os ; TURN por AOR NT FOR ERROR DATA 
ROR 4 ; 
RTS PC ?RETURN TO FR OREAR™ 
ERROR i HOR NOS 1 TO 4 ARE 
:S TO 260 ARE DATA WORDS 
RTS PC :RETURN TO “COMPAR” 


SEG 0133 


CZRJHBO,RPO4’S’“6 DSKLS CTRLR2 
CZRIHB.P12 10-NOV-77 11:09 


497 O040:30 012706 001000 


498 

Susy 

SS00 

SS01 

SS0e 

eens 14e Ole 177777 
ss0s Oigtie 018705 000400 
Gq pigiee Bt 700 OS4S66 
sso 1 11620 

ssos 169 00s 

5 Ol 0013 

5510 O40164 005726 

SS11 O4%0166 O2e0e0 

eats 040170 O1270S 000017 
S514 o4oi74 goso20 

SS16 0200 001375 

5S17 

eels O4020e 004737 O51254 
SS20 

SSel 

SS2e2 

$Se3 

BSo4 012737 177777 
5525 040214 poss? 050472 
see OuGe00 OlSra, OsOieb 
ssee Gem O0803, De0ueg 
5530 0244 005037 050476 
SS31 oO402S0 005037 

SS32 

SS33 

SS34 


MACY11 30(1046) 
Tél 


015142 


050470 
ososoe 





1$: 


es: 


10-NOV-77 11:48 PAGE 135 
READ ECC ENABLED 28 


MOV #STACK, SP ;RESET STACK 
SETUP FOR WHAT IS TO AD 
HEADER CRC IS RESTORED FROM A SUBROUTINE 
MOV #-1,-(SP) ;DATA TO BE READ 
MOV #256. ,RS : COUN TER 
MOV #0 Sk'RO ART OF SIMULATED DISK DATA 
nov £ ), (ROD+ cour DATA ON TO SIMULATED DISK 
BNE 1 ANCH IF 256 NOT COMPLETE 
TST (SP)+ -(5P) 
CMP (RO)+, (RO)+ sWNOg OVER THE TWO ECC WORDS 
MOV #15. ,R5 :1 DATA GAP 
714 TOLERANCE GAP 
beeti‘éike sSLEPRANcE Gap’ 
BNE 2 t BRANCH NOT COMPLETE 
ISR PC, J8F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 


;IN THE CORRECT PLACE 
sete bo ARE FOR ECC TEST ONLY 


MOV sbaaeTgece ; THIS IS AN ECC TEST 

CLR CLEBR ERROR TION GQUNTER 
MOV T enc NT Be N- 

MOV 2a 

CLR of, CENERD oe 
CLR +E Ce HIGH ORDE Bee EENERATED 
CLR $08 Eey ‘CLEAR DATA PRVELOPE CLOCK COUNT 
CLR asZCODE :CLEAR LEADING ZEROS CLOCK COUNT 


;*#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV eFMT2e, aeCYL 328 alts PER WORD 


RO, FORMAT 16 BITS 
MOV COTR+1 TRACK 2 
MOV: 80; SSECOTR 
MOV #0; J8KEY] 


K 2:0 
MOV #256. , J80: a OF DAT 


MOV #0 oh 

A_WORDS 
CLR aax aus TS A READ COMMAND 
ta RS, J#CRC ;GO TO CALCULATE CRC 
WCRC 


paTHIS 3 TO at iste" RROR 
THE DISK DA Ss 1h LOCATION STARTING FROM "DISK* 
*#THE POSTION N OF THE ERROR CAN BE CHANGED BY CHANGING 


SEG 0134 


CZRIHBO, RPO4/S “6 DSKLS 
CZRIHB.Pi2 10-NOV-77 
5S 
555. 
5554 040334 012737 
5sss 
5556 
5557 040342 012737 
5558 
5559 
5560 
2262 940350 004737 
5563 paose4 O1g777 
SSe4 0362 012777 
5565 0370 112746 
5566 0374 11¢766 
5567 0402 Ole6b 
5568 O40406 012777 
5569 
5570 
5571 
5572 040414 005077 
5573 
cers puowee i371 
5576 0436 Ie} 
5577 o40442 004737 
5578 
5579 
5580 
5581 
5582 
5583 
55e4 
558s 
5586 
5587 
5588 
5589 
€590 
5551 
5592 040446 73 
5593 O404S4 004737 
5594 O40460 022737 
559s 04 00140 
5596 (04 1040 
5597 
£598 
5599 
eEpe 72 013746 
5602 76 2716 
S603 o40s 2637 
5604 0506 1401 
2605 040510 104032 
5607 O40512 004027 


CTRLR2 
11:09 


077757 


010040 


MACY11 30( 1046) 
Tee 


0S4S70 


040516 


154366 
1S$436e 


000001 
184352 


015034 


6$: 


7$: 


10-NOV-77 11:48 PAGE 136 
READ ECC ENABLED 2C 


;*#THIS MOVE 


MOV 4877757, deOISK+2 SCORES ERROR ON BIT NUMBER 32 AND 21 
;S0 ERROR POSITION REGISTER WILL SHOW 


see 
MOV #4128. ,a88$ i FRISERT POSITION REG. 


;#THESE ARE REGULAR SETUPS 
JSR PC sCLOISK 
MOV @RHWC 
MOV “ae 


i AORTA WORDS 
PR Om 
/SECT RHOS 


, 
o 
MOVB : 
MOVB #0' 1¢ ; 
MOV (SP)+  SRHDST : K N 
MOV sEMTee, @RHOF 316 BIT R WORD 
; C TION NOT INHIBIT 
: €C IS NOT GOING 
>TO BE CHECKED 
CLR @RHCA :CYLINDER O 
MOV QSREFOR, ORL ;READ HEADER AND DATA=72 
CLR sERFLGS ?CLEAR ERROR FLAG 
ISR PC, a#COMHD :READ HEADER AND DATA 
:IF THERE ARE AD E ERRORS THEN 
SECC WILL NO CHECKED 
;#IF THE PROGRAM COMES K HERE WITHOUT ERROR PRINTOUTS 
+ SEROM THE Se aa ig NERS, SECTOR OR GAP, 
:#F IRST SYNC, HEADER, HEADER CRC GAP AND 
4S BYTE BY AND SYNCS WERE CORRECTLY 
die 2 ne DATA ARE TO BE C 
$#IN CHECKI GAT fee Peon BUFFER 
+S AREROM™ Te CED With XPECTED DATA AND 
: #COMPARI 
TST HERFLGS ANY ERRORS ALREADY THERE 
JSR PC, J#PUTREG i SAVE REGISTERS 
che “ene ¥ DATA ¢ oe ERROR SHOULD BE SET 
ERROR 5 ; 32, 8 T bec GISTER SHOULD BE NON 
Thdteg paren 8 Is CAN BE SEEN 
TERN GISTE 
T IN RHERI 
MOV QSGECC1,-(SP) s Box es, REG STER 
BIC #174000' (SP) KEEP ONLY ITs 
CMP (SP)+, JREC2 i COMPARE Pat + BA EGISTER 
BEO 73 : BRANCH 00 
ERROR 32 :11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
ISR RO, J#ECORR ;GO TO ECC CORRECTION PROCESS 


SEG 9135 


ss 
as 


of. 


RaneRaEN ENE 
WONCTW CWO 


Rs 


PASERCRE SEG 


Ratatat aaa att 
HOBO IRN 


ee 
$526 


0, pi ta PLS. 


040516 
o40S20 
o4#ose4 


040532 
0405S 


O4OBEE 


000000 


Slotattatatetatetetata 
a8 


000207 
104005 


000207 


CTRLR 
11:0 


O4S464 


100100 


O46660 


MACY 11 — ab eorexc’é 1:48 PAGE 137 


015034 


000001 


015232 


9S: 


3$: 


4S: 
Ss: 


CC ENABLED eC 
. WORD ;EXPECTED POSITION REG. WHEN CORRECTION 
;1S COMPLETE 
JSR PC, J#PUTREG ;SAVE REGISTERS 


CMP #OCK!ECH, J8ER] a ae noes ERROR 61 IN BIT Poss t sen 2i 
95 + BRANe R BIT SHOULD SET 


EQ 
ERROR 36 ;WITH N ERROR IN INSERTED IN BIT POSITION 21 THRU 
;32 HCE SHOULD SET 


MOV WRF ROM ;GETTING READY TO FILL EXPECTED DATA 
MOV sO!FMT2e, (RO)+ HIN COueR, 

MOVB #0,-(SP) :IN LOWER BYTE ug SECTOR 
MOVB 80; 1(5P) :GET TRAC K deci GHER BYTE 
MOV (SP)+. (RO)+ :GET TRACK’ cto t IN BUFFER 
MOV #0, (RO)+ KEY TN 

MOV #0, (RO) + iK Ye IN F R 

MOV soée. TA COUNTER 

MOV a-1 ite 

nov Re, (R + TA INTO BUFFER 

BNE 3$ + BRANCH IF 256 NOT DONE 


; #ONLY_ GOOD DATA HAS BEEN PUT IN 'WRFROM’ 
;#NOW THE INSERTED ERROR WILL BE PUT IN 


MOV 877757 BURFROMS <S42> pINSERTED ERROR 
JSR PC, J8PUTRE : SAVE gE REGIS 

CLR astRFLGS AACR er 

;#NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, J#COMPAR 
OM 


WRFR 090° at 
REINTO $408 
44256. : OF WORDS CHECKED 
4$ i N POINT FOR ERROR peagen 
$ ; TURN. PS PO nt FOR ERROR DATA 
ERROR 4 ; RROR 
TS PC 7 RE * ERGPAR™ 
ERROR 5S ; WOR pos 1 TO 4 ARE 
;HEADER WOR : 
:S TO 260 AR pare ,WORDS 
RTS PC ;RETURN TO “COMPAR 


CZRJHBO,RPOY“S”“& DSKLS CTRLR2 
10-NOV-77 11:09 


CZRJIHB. 


eet 


PALA AA at at 
BRIAR LGB 


383 


BOIRREO 


CAC CAIURIUICIUN Un CUT UT Urn 
NNNNNANNNNANANSN 


+b b= be 
tWwMr-O 


Ple 


040672 


012706 
012700 


1 
001375 
004737 


013737 
eae 
te 


005037 


012737 


1 
012720 
1374 
012777 


013711 


001000 


0S4470 
000460 


04S764 


177374 
015220 
183676 
010000 
000001 


000400 
OSeses 


000001 


01517e 


MACY11 30(1046) 


015142 


050470 
ososde 


OS6006 
056010 


OS604E 


153704 


1$3650 


Tee 


1$: 


es: 


3$: 


10-NOV- 


77 «=11:48 PAGE 138 


READ ECC ENABLED eC 


MOV 


wSTACK, SP ;RESET STACK 
SSECGAB | RO POINTER 
R833" £0 PE 8 MULATED DISK AREA 
$ 
Be, CLOISK ;THIS IS USED TO SET GENERAL REGISTERS 


ARE FOR ECC TEST ONLY 


SebestTt ition Eon ps]3 ou H COUNTER 


QBNCODE , JBNCOU 
SSHARDER, SeHADT He ERPORA RAR RO_ERROR COUNTER 
are, Sa greeie tee iene, 
aeZCODE :CLEAR LEADING SEROS CLOCK SOUNT 


ARE TO BE SETUP FOR DISKLESS USE ONLY 


SFMT22, JOWCYL sFORNATER= 16817 WORDS AND 
#1, J8WSECTR ; TRACK=0, SECTOR=1 
gatik Y KEY A= 
BWKEY 
8256. ,a8FNWORD :256 DATA WORDS 
RS, J#CRC :GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


fue ORHWC Trek TA WORDS 4 HEADER WORDS 
sWRF Of. TWO INSTRUCTIONS GETS 
RO, aR WAR ROM INTO RO AND 


Po SS REGISTER 
SFMT22, (RO)+ ORMAT=16 BIT WORDS 
1, (RO)+ iFRacK=O. RectoRe! , KEYS=0 
& 
(RO)+ K Yl= 
(RO)+ !KEYe= 
#256. ,RS TER 
u5eses, (RO)+ : MOVE ALL S2S2S FOR DATA 
3 ;BRANCH IF DATA NOT COMPLETE 
#1, IRHOST :TRACK=0 SECTOR=1 


QsWRIFOR, RI ;GET READY FOR oat MA HEADER AND 


:DATA WITH 62 IN 


OO 


CHUNUTUTUTU UT UT UU UT UU oY 


4 
»D 


“SINISE Cale 


$755 


‘ 
222277 FFFP 


we 
won 


NIN 
weo 


763 


9 


CTRLR 


11:0 


015124 


0S0460 


OSO46e2 


045702 


015124 


046660 


; COMPARE SOF TWARE 
CMP 


4 MACY11 os wh Pryce” d}: 38 PAGE 139 


TE ECC TE 


CLR OsERFLGS ;CLEAR ERROR FLAG 

MOV aFMT2e, MRHOF ;FORMAT BIT=1 (16 BIT WORDS) 
GR a A i CYL SHOE ae 

JSR C, d#COMWHD ;WRITE HEADER AND DATA 


; #IF ~~ PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE “COMWHD” net tie THAT MEANS ALL HEADE 

;*#I1S GOOD IE. ONLY DA #3 TO 

;#ALL Se AND _WRITE DATA GAP AND GAP TO SEE IF 


is R_ON DISK 
BE CHECKED To SEE IF THEY ARE 
; OLERANCE 
! #THEY ALL ZER 
RR 


TST @sERFLGS ;HAS ANY E ore OCCURED? 
;IF WRITE ERROR OCCURS ECC IS NOT CHECKED 
GENERATED ECC WITH THAT GENERATED BY HARDWARE 

@8GECC1, @BWECC1; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
BEG 6$ ;BRANCH IF GOOD 
ERROR 31 LOW R ECC_IN “alas 
BR 7$ ; H_ TO TINU 
CMP @8GECC2,aBWECCe ; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
BEG 7$ ;BRANCH IF GOOD 
ERROR 31 ;HIGH ORDER ECC IN ERROR 


;#FILL “REINTO” BUFFER WITH EXPECTED DATA 
JSR RO asCLAREA sEILL REINTO BUFFER 
RELNTO >FROM 
REINTO+<255. #2) >TO 


-WORD Ses :DATA 
MOV #GECC1, ABREINTO+< 256. #2>;FILL ECC 

MOV #GECC2’ JBREINTO+<257.#2>: FILL ECC 

JSR 0, J#CLAREA ;FILL REST 

RE INTO+< 258. #2> FROM 

REINTO+<272.#2> TO 

0 ;DATA 

CLR OeERFLGS ;CLEAR ERROR FLAG 

;#NOW COMPARE “DISK” BUFFER WITH “REINTO” 

ISR RO, J#COMPAR ; CHECK 

RE INTO iG 

DISK : TES FER 

258. :NUMBER OF WORDS CHECKED 

48 :RETURN POINT FOR ERROR HEADER 
cs :RETURN POINT FOR ERROR DATA 


11 


CZRJHBO,RPOY/S”& OSKLS CTRLR2 MACY11 30(1046) 10-NOV-77 11:48 PAGE 140 
ESRIHE-Pl2. 18 35 Hen 964 


-NOV- WRT TE Ecc ted 3 SEQ C129 

S771 041304 104007 4S: ERROR 7 READ ERROR. 10 10 NEXT 
5778 041306 000207 RTS PC Hon Nos. 
3223 041310 104010 Ss: ERROR 10 NOS coor 256 ARE 

>5 B 

$5 Ee cB, WiTCH ORE ea CHECKED 
t>>> NOs 259 
or TS 
5779 ldrb'n e010 273 

5780 SARE TOLERANCE GAP 


S78i O4i312 000207 RTS PC ;RETURN TO AC ORPARE 


C2RJHBO, RPOY/S 6 Sm Baby | MACY11 ios wheres” &4#36 PAGE 141 


CZ2RIHB.P 12 10-NOV-77 11:0 TE ECC TE SEG 0149 

S7' 

8783 041316 012706 001000 MOV aSTACK, SP ;RESET STACK 

5785 

? ;#SETUP FOR WHAT IS TO READ 
578? t SREADER CRC IS RESTOREB FROM A SUBROUTINE . 
2789 1330 012746 Oseses mov eses2s, -(SP) ;DATA To BE READ 
25a 13u0 Bis SOO cee MOV Hate RS Siento OF ots MULATED DISK DATA 
5792 1 011620 1$: MOV (SP), thos f& ON TO SIMULATED DISK 
5793 O41 005305 DEC Re :Counr 

5794 041 001375 1 ; F ese NOT COMPLETE 

5795 041 005726 TS (SP)+ ;UNDO -( 
3796 041358 e020 CMP (RO)+, (RO)+ : JUMP R THE TWO ECC WORDS 

5797 O41 127 000017 MOV #15.,R5 :1 DATA GAP 

5798 714 TOLERANCE G 

5799 041362 o0s020 2S: CLR (RO)+ i CLEAR DATA , AND 

5800 041364 005305 DEC RS :T ERANCE GAP 

280 041366 001375 BNE 2s :BRANCH IF NOT COMPLETE 

5803 041370 004737 0of1254 ISR PC, J8FILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
5804 :IN THE CORRECT PLACE 

SBE ;#THESE ARE FOR ECC TEST ONLY 

5808 041374 012737 177777 015142 nov aol, jaa i THIS, IS AN Ecc TEST ST jae 
Bate Oa 140 5 13739 Deoee 050470 MOV 8NC 1’ Me Hoey m N-CODE COU OUTER 
5811 1414 013737 050474 O50sS0e MOV a°s ERROR COUNTER 
58i2 o41422 7 OSO460 CLR uGeCCI OW ORDER 19 BE GENERATED 
5813 Ou 1426 0050 0504 CLR ae CCe Eee HIGH R TO GENERATED 
5814 14 005037 CLR #OATENV :CLEAR DATA E OPE CLOCK COUNT 
B8is 041436 005037 O50S CLR sro cope :CLEAR LEADING ZEROS CLOCK COUNT 
5817 
be18 ;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 

5820 O41442 012737 O10000 oS26 MOV aFMT22, J8CYL 316 BITS PER WORD 

5821 = , ?CYL NOER 0, FORMAT 16 BITS 

b8ee O414SO0 112737 052653 MOVB #0, @#SECOTR+L ; TRACK 

5823 041456 it 737 052652 MOVB #0; a8SECOTR :SEC 
5824 1464 012737 052654 MOV 80; J8KEY is KEVI= 

eESe 1505 piss fesssé NOV reeb YSaworo iNB OF DATA 

ess 041 005037 Os CLR - @ax :THIS IS A READ COMMAND 
288 1512 004537 047172 ISR RS, J8CRC :GO TO CALCULATE CRC 

1516 O&2659 CYL 

5830 i238 o545 WCRC 

E831 

5832 

see 
265 ;#THESE ARE REGULAR SETUPS 

5827 O41S2@2 004727 O4S764 ISR PC, JHCLDISK ;SETUP GENERAL REGISTERS 


oie) 


BB 


: 


nesee ates ber 


: 


Seer ene Penn RO 


NN 
MeO 


NN 


tateteted 


rut LL SERER 


&® 
8 


: 


RPO4/S/ DSKLS CTRLR MACY11 30/1046) O-NOV-77 11:48 PAGE 142 
-Pl2 10-NOV-77 11:0 64 READ ECC ENABLED 3A SEG 0141 
1$26 012777 177374 153214 MOV #2 3256. DATA 4 HEADER WORDS 
1 012777 4 1653210 MOV REINTO, jaaKoR : BaTEN OF RE BUFFER 
1542 112746 nove i IN LOWE BYTE GET SECTO 
1546 it 758 000001 nov 09,1 GET K_IN HIGHE BYTE 
15s4 Ol i MOV pis ‘age. : K/SECTOR IN RHOS 
1560 012777 610000 153200 MOV aFMT22, ;16’ BITS WORD ~ 
; eae Cc TION NOT INHIBIT 
>BEC cis NOT GOING 
041566 005077 153176 CLR @RHCA ; CYLINDER 
041604 013711 015176 MOV DeREFOR, ORI ;READ 8 DATA=72 
O4161¢. 037 piet3e CLR DSERFLGS > CLEAR RROR FLAG 
041614 004737 052510 ISR PC, J#COMHD ; AD ADER AND DATA 
: i HE AD ERRORS THEN 
:ECC WILL NOT BE CHECKED 
He THE PROGRAM S BACK HERE WIT T ERROR P PRINTOUTS 
$a ROM HE oer u THAT ME CTOR GAP, 
R CRC, HEADER GAP AND 
i SGy ‘eve BY SYNCS WERE CORRECTLY 
SHEARER AND DATA c 
#1N HECKI READ DATA T cee fee Pion BUFFER 
WRFEROM” I LED WITH EXPECTED DATA AND 
* SCOMPART MADE 
041620 005737 015124 TST sERFLGS ;ANY ERRORS ALREADY THERE 
O41626 004737 O45464 JSR S#PUTREG :SA STE 
041632 005737 015034 : TST astRi :NO SHOULD BE SET 
041638 001401 : H if NOe T 
1640 104032 ERROR 5 gir Ecc ISTE ULD BE ZERO 
SONLY 11 T reirg CAN BE SEEN 
;IN THE PATERN EGIS ER 
:OEe BATTERN REGISTER 
O41642 013746 0460 6S: MOV QeGECC1,-(SP)  5;GET cl STER 
O41646 042716 174000 BIC #174000, (SP) > KEEP Y 1 81 
O4165e 022637 015064 CMP (SP)+,a COMPARE PA E GISTER 
1656 001401 BEG ‘BRANCH IF GOOD 
Dyiee8 104032 ERROR 3 711 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


BRI & MAINTENANCE CLOCKS TO 
*#BRING EBL DOWN 


041 7$: M ; COUNTER 
O41 90006 3ige eS: = BIS ancl ks ORHMR :SET CLOCK 

att See 2777 000002 3074 BIC anc K; JRHMR ;CLE R CLOCK 

041704 ~ BNE 8 } BRANCH IF 16 CLOCKS NOT DONE 
041720 00 o1S220 MOV SWRFR :GETTING REAOY TO FILL EXPECTED DATA 
041724 ? 109560 MOV sOrEntes” On0)+ :CYLINDER 5 


CZRJHBO, RPO4/S’“6 OSKLS 3, cr 


CZ2RJHB.P12  10-NOV-77 
sss ate 112746 goons 
SE BLP BIB988 oo 
ssse 1750 12720 
A v teh Baws 
1 
8 4 a BUStES 
307 


NUIT UU a 


OOOO WWWDWWW 
a be eee 


OONMTUI£Wlu-O 


8 
2 
rs 
E 
8 
8 


MACY11 30( 1046) 
T64 


000001 


3$: 


4§: 
Ss: 


10-NOV-77 
READ ECC 


ENABLED 3A 
MOVB #0,-(SP) 
ROY CP} Ro 

Vv ($P)+. (RO)+ 
V #0, (RO+ 
MOV #0, (RO)+ 
my Sesboahh 
V aseoes sf 


es thes 


11:46 PAGE 143 


IN LOWER BYTE GET SECTO 


#, sy K/BectOR TN R BisFer 


FER 
COUNTER 


Be eta INTO BUFFER 


Cedi 


;#NOW READ DATA BUFFER WILL BE CHECKED 


RO, J#COMPAR 


PC 


; CHECK FER 
ee REEER 
NT FoR fa ROR HEADER 


is Than PSTN Fo F RROR DATA 


;RETURN TO FRB RP AR" 

. NOS 

; HEADER 

35 TO 260 DATA WORDS 
RETURN TO “COMPAR” 


SEG C142 


Gfnjue.Ple 10 


ag 3 
wre 


é 


WIUIUTUTUTUTUTUT 
Ww re] 
BY 

NG 


wiv 
aa: 


epee: 


Re 


wu 
ah 
~ 


SSIES 


UU UU UT UT) 
ea ta 


Se 


WUTUTUNUT 
owWwW0wW 
“NI 20 NIN 
mtwre 


5976 


-NOV=7 


CTRLR 
11:0 


042034 012706 6001000 


PEPLIPEL 


frururururururory 


012737 


oO00-- 
See 
SV888 


SESSA 


0400 
OS¥Sbe 
000017 


051254 


Nil 
mcr HEI LRSM Lahti ag AOE 


015142 


050470 
os0s0e 


1$: 


es: 


MOV sSTACK, SP 


+ SHEA FOR WHAT IS TO 
STORE 


#HEADER CRC IS 
He -(SP) 


DEC Eo 
Ohi iB 
S (SP)+ 
C (RO)+, (RO)+ 
MOV #1S., RS 
CLR (RO)+ 
DEC RS 
BNE es 


JSR PC, @@FILLEC 


;RESET STACK 


READ 
FROM A SUBROUTINE 


;DATA 19 BE READ 
SIRT be caeunargs 
AE of oBFEPSATES SIRES ors 
;BRANCH IF 256 NOT COMPLETE 


= ) 
Noe R THE TWO ECC WORDS 
; A_GAP 


, 

:1 DAT 

14 TOLERANCE GAP 
*CLEAR DATA , AND 
; TOLE E 


RANC 
;BRANCH IF NOT COMPLETE 


; INSERT ECC IN PROPER PLACE ON DISK 


; *THESE ARE FOR ECC TEST ONLY 


cee Bap0StTT 


a ae 


MOV gene OUNT’ COUNTE 
MOV DER: SaHADTNP : ali RCO QUNTER 
eth ERE “fiiGH ORGER foe nent 


CLR serie NV 


EAVEL OTE COUNT 
:&t AR CEADING ROS eLock COUNT 


;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV eFMT22, aeCYL 


1S UOEEE FORbar ae otrs 
’ ’ 


MOV 50° sSECOTR+1 ; TRACK 
MOV r] BoECOTR ;SECTOR O 
MOV 10:3 Pree 3K ve=0 
MOV aKEY iKEY 
MOV 256., S 
GR this ig COMMAND 
a Bea 0 fa cuLA E CRC 
WCRC 
pare s } TR, RT_ ERROR 
B bata S_IN LOCATION STARTING FROM ’DISK’ 
STH 3S ha THE ERROR CAN BE CHANGED BY CHANGING 


SEG 0143 


CEE eee ee RS CTs MACYIL SOCL OMe) OO Nekc Ennbtéo se | SEO 0144 






3 ;#THIS CHANGES THE LAST BIT OF THE ECC 
055570 MOV DeWwECC2, -( SP) AST ECC 
3a0 Hie COM (SP) iTive T ALL BITS OF WECC2 
383 i 0 A0000 0SSS70 Bie ++} bee fi FEAR wheat 1 
Ratz Is (SP)+, bine cee THIS I cer 8 Vie IF T WAS O 
984 OR WILL NOTHING IF was A 1 
Bo 042264 012737 010026 o42440 MOV #4118. , aes ; INSERT POSITION REG. 
389 , 
3320 ;#THESE ARE REGULAR SETUPS 
533 3676 12777 OF5e4  1s2444 wen eC aReCUR Sc i3ee" para dH BOER HORGS 
e494 12777 bi 4 152440 MOV nto, onee : barter 708 READ BUFFER 
599S e312 112746 MOVB 80, 5 ¢$6) ?IN L T SECTOR 
53 Ove 1 16766 000001 MOVB 80 :GET ait BYTE 
6 2324 0126 152432 MOV (SP)+ $1 : /SECTOR IN RHOS 
5998 042330 012777 010000 152430 MOV sFnT22, ORHOF ;16' BITS WORD 
200 + BE EAL ces NOT Orne. 
6001 : 
600¢ 042336 005077 152426 CLR @RHCA : CYLINDER gre 
6004 
6005 2354 0137 15176 MOV FOR, aR1 ;READ R AND DATA=72 
6007 BuS3e5 08037 Bisie8 SR seek KGS ig 4 R ARB BDA 
6008 ab" ERRORS THEN 
6003 BE. Hie NO Re READ CKED 
pois FT RROR P PRINTOUTS 
6013 SER a o8 eerie T MEANS SE cor 
6014 jab R gnc GAP SND’ 
B015 #5 N fe yNts i WERE CORRECTLY 
6017 + SHE hb Fe ate ED. 
6018 :#IN eng WR ROM BUFFER 
6019 i R mis TATE XPECTED DATA AND 
6022 042370 015124 TST gee ab RRORS READY THERE 
6023 042376 737 O45464 JSR C, J#PUTREG SAVE eRe STE 
b0e4 Ouesoe gee737 105000 015034 CHP s0CK, J8ERI ¥ DATA CHECK ERROR SHOULD BE SET 
b0e6 baste 104032 é OR + bbe YRPGISTER SHOULD BE NON 
£038 a PRtcant TS CAN BE SEEN 
$ TERN 
60 5 ITER RHER1 
6031 042414 013746 OS0460 &S: MOV QeGECC1,-(SP) GET AT YERN EGISTER 
6032 o4e420 #174000; (SP) ‘KEEP ONLY 11 BITS 


042716 174000 BIC 
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CZRIHB. P12 10-NOV-77 1 ECC E SEG 0145 
ee 8; 015064 MP a ; ARE Paty RN REGISTER 
l OR 3 PT OT ts OF 32 BIT ECC REGISTER INCORRECT 
13434 7 051102 7$: JSR RO, J8ECORR :GO TO ECC CORRECTION PROCESS 
bo38 Busud | BrdSes Qs: ule. ; EXPECTED POSITION REG. HEN CORRECTION 
6039 S COMPLET 
b043 o42e4S4 012700 015220 MOV eeTT Hage i. TO FILL EXPECTED DATA 
paid Ps BASBBR vB NL vTE GET SECTOR 
604% O42470 112766 000000 000001 'GET T YTE 
6047 1 MOV T TRACK BCK/SECTOR I iN BUFFER 
ea B48 i MOV tk ve In 
B080 19 1 MOV TA LORBUCOUNTER 
ieee? Bess? 3s MOV jDATA INTO BUFFER 
4 BY 1 BNE ae IF 256 NOT DONE 
6056 | pur IN 'WRFEROM’ 
6057 Shou. THe NSE TED ERRO WILL BE PUT IN 
5058 “BUT I Neb OR IS IN ECC SO DATA IS NOT WRONG 
004737 oO4S464 ISR PC, J8PUTREG ; SAVE REGISTERS 
e0e1 Basess 005037 pieied CLR astRFLGs ‘CLEAR ERROR FLAG 
ees 
BCes ;#NOW READ DATA BUFFER WILL BE CHECKED 
6067 37 O46660 JSR RO, a8COMPAR ; 
cae Bisews BIBse2 mathe ay Bere 
ro fies Bustos ae inbrneh oe too 
pore uses 2s 4§ RETURN BO IN BR° PERORC HEADER 
6072 O425S2 O4eS5be S$ ;RET ae INT FOR ERROR DATA 
3 3556 4S: RROR : NEX 
74 7 TS PC tRETURN TO *CORPAR™ 
? O42562 104005 Ss: ERROR 5 ; WORD Nos 1 TO 4 ARE 
75 260 DATA WORDS 
£078 O42564 000207 RTS PC :RETURN TO “COMPAR” 
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CZRIHB.P12 10-NOV-77 11:09 T6S READ ECC ENABLED 38 SEG D146 
6080 
6081 042570 012706 001000 MOV aSTACK, SP ;RESET STACK 
eps xs TUP_ FOR WHAT T AD 
Pee ADER CRC IS RESTORED FR A SUBROUTINE 
eoes 2602 O01 an S2S,-(SP) sDATA TO BE READ 
p088 1 00 MOV : BR s COUNTE 
1 127 4S66 MOV ’ T OF SIMULATED DISK DATA 
6030 26 11 1S: MOV ), tk + ; MOVE IN DATA ON TO SIMULATED DISK 
6091 O04 DEC 
e533 Bs oe PF tBeys {BRANCH JF 256 NOT COMPLETE 
6094 022020 CMP (RO)+, (RO)+ ; JUMP R THE TWO ECC WORDS 
6095 Buse 01270S 000017 MOV #1S.,° RS i108 The " 
Pee o4 o0s020 2s: CLR (RO)+ ‘CLeBR TA Ep AND 
6098 O42636 005305 DEC RS TOL RANCE 
6039 042640 001375 BNE 2s :BRANCH IF NOT COMPLETE 
6101 
6102 O42642 004737 051254 JSR PC, J8FILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
6103 N THE C CT PLACE 
6105 ;#THESE ARE FOR ECC vast ONLY 
6107 O4264%6 012737 177777 015142 MOV a-1. “eTSECC ;TH C TEST 
61 4 7 CLR ePOSIT “UH Ea rl ON COUNTER 
C18 sees Be BEBE oso §=— Suche omcaunn' bed sofa 
6110 0% 0137 74 02 MOV SHARDER, a TMP RROR_ COUN OUNTER 
6111 G4e674 CLR Peck” EO CREE R a GENE ATED 
6112 O04 oa CLR eae ¢C HIGH 0 NERATED 
6113 C427; 7 04 CLR NV : LEAR DAT L CLOCK COUNT 
b114 042710 005037 OS0500 CLR :CLEAR LEADING ZEROS CLOCK COUNT 
6116 
6117 ;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
6119 042714 012737 010000 osz2650 MOV eFMT22, UCYL ;16 BITS PER WORD 
pis? 042722 112737 653 MOV ry COTR+ 1 Ms i o2 oo 
ie RES Ce Be eR aoe 
6123 042736 0127 654 MOV akEY1 :KEVL= 
6124 guar ble? Obee56 MOV oKE Ve 
6125 752 0127 30 MOV aot AWORD DATA WORDS 
6126 O42760 005037 052660 CLR aex MO 1S-A READ COMMAND 
6127 O04 7o4 004537 047172 ISR RS, J8CRC :GO TO CALCULATE CRC 
bie Os Ose6 CYL 
61 772 4550 WCRC 
6130 
6131 
6132 Bey TO ‘ney ERROR 
£133 *T plex’ bat S IN LOCATION STARTING FROM ’DISK’ 
6134 HE _PO Ob1T °6N Roe THE ERROR CAN BE CHANGED BY CHANGING 
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-Ple 10-NOV-77 11:09 Te6 READ ECC ENABLED 3C SEG 0147 
042774 012737 152652 054632 MOV #152652, HDISK+44:; INSERT ERROR IN POSITION 296 THRU 304 
043002 012737 OS2532 054634 MOV #52532, JeDISK+46! NSERT E IN POSITION 30S THRU 308 
043010 012737 O10040 043164 MOV #4128. ,ases : INSERT POSITION REG. 
;#THESE ARE REGULAR SETUPS 
043016 904737 045764 JSR SC ; SETUP GENERAL REGISTERS 
043022 0127 177374 151720 MOV att ORHWC ; DATA 4 HEADER WORDS 
943030 o1e777 016264 151714 MOV seeing jh TARTING BOOR 39,06 READ BUFFER 
Suspas 112766 0000 00001 MOVB GET ORaCK IN HTSHER BYTE 
043050 012677 151706 MOV (P)s,” ‘aRHOST : K/SECTOR IN RHDST 
043054 012777 6010000 151704 MOV MT22, @RH 316 BIT PER WORD 
sECC C TION NOT INHIBIT 
: EC s S NOT GOING 
043062 77 151702 CLR RHCA >CYL R 
043100 013711 015176 MOV OSREFOR, ORI RE R AND DATA=72 
043104 005037 015124 CLR QHERFL GS > CLEAR FLAG 
043110 004737 062510 ISR C, aac : R AND 
3i ERRORS THEN 
:ECC WILL NOT BE CHECKED 
;# FT K HERE W RROR P PRINTOUTS 
Phot se Rome tos FOE HE ee ARR 
ied RST SYNC R CRC, HE GAE SND’ 
i ASYNE BY BY AND SYNCS WE ROORRECTLY 


ORT TE PROM BUFFER 


ei CHECKING AD_DATA WR 
XPECTED DATA AND 


Tecreg. DATA ARE TO He 
H+ A TORR TSOnE Aer WITH 


TST 
J 


043114 005737 915124 ST gue REL GS ; ANY ERRORS ALREADY THERE 
043122 004737 O45464 SR C, J#PUTREG i SAVE REGISTERS 
043126 gee? 37 100006 015034 che a0Ck, aseERI ; ONLY CHECK ERROR SHOULD BE SET 
043136 ) ERROR 32 fF wait bec YREGISTER SHOULD BE NON 
: yi OF THE 32 BITS CAN BE SEEN 
Bey OO Be BETO RHERI 
943140 013746 050460 6S: MOV OeGECCL, “(SP ;GET By GISTER 
144 042716 174000 BIC #174000’ (SP) :KEEP ONLY batteRn 
043150 022637 015064 CMP (SP)+, aREC2 ; COMPARE PA TER REGISTER 
ou 154 OO1401 BEQ 73 i CRANCH I 
3156 104032 ERROR 32 :11 BITS oF? oe 32 BIT ECC REGISTER INCORRECT 
043160 004037 051102 7$: JSR RO, J8ECORR ;GO TO ECC CORRECTION PROCESS 
643164 900000 es: . WORD ; EXPECTED POSITION REG. WHEN CORRECTION 


OND 


Ba 


roorrres 
SSBSRRIOE BS 


of 


La 
aes 


RofuroFororoororororD 


3 


sb he hh be Be be 
WONMOW £ WHO 


EE 
ae 


Oo 
S 
w 


22 22 
BS Se 


O00000r--00 
furore 
#38 


Ree ee ee ree 


o 
xe 


152652 
0SeS32 


O4S464 
015124 


O466E0 


MACY11 eo 


015634 


000001 


015274 
015276 


9S: 


3$: 


4: 
Ss: 
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READ ECC ENABLED 3C SEG O14e 
ISR PC, J#PUTREG ; SAVE 

CMP #O0CK'ECH, JHERI het Bar 5 fo PRRGI, NBT P PO TION 21 

BEQ crs 

ERROR 36 THERROR ROR IN SEATED IN BIT POSITION 21 THRU 
MOV BRE RON RO ;GETTI ADY TO FILL EXPECTED DATA 

MOV agtFniige, (RO) + :CYLI R 

i att a 

MOV (opts (RO)+ Ger K/sECTO N BUFFER 

HOY 0, (R34 i YS in B FER 

nov #e56. Ri, :DA TA IN BUFFER 


ree Dara INTO BUFFER 
BNE 3 H IF 2@S& NOT DONE 


;#ONLY_ GOOD DATA HAS mn PUT ih * WRF ROM’ 
;*#NOW THE INSERTED ERROR WILL PUT IN 


MOV #152652, JWRFROM+54; INSERT ERROR IN POSITION 296 THRU 304 
NUMBER 19 IN DATA 

MOV #52532, aewrrRom+sé; INSERT OR IN POSITION 30S THRU 308 
;IN WORD NUMBER 20 IN DATA 


ISR PC, J8PUTREG ;SAVE_ REGISTERS 
CLR astRFLGs :CLEAR ERROR FLAG 


;#NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, d#COMPAR ; CHECK 
WRF ROM § S000 BUFFER 
REINTO ; TEST FER 
44256. ; S Boe Pe CHECKED 
$ ;RET point FOR ERROR HEADER 
$ ;RETURN PO FOR ERROR DATA 
ERROR 4 ;READ NEXT TERROR 
TS PC ;RETURN TO “COMPAR” 
ERROR 5 ;WORD NOS 1 TO 4 ARE 
SHEARER WOROS 
TO 260 ARE pare WORDS 
RTS PC :RETURN TO “COMPAR” 
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Pie 10-NOV- 0 ECC E ED 3C SEG 0149 
6245 
beve 043346 012706 co1000 MOV wSTACK, SP ;RESET STACK 
6248 
6249 
6250 ;#SETUP FOR WHAT IS TO READ 
B25) :#HEADER CRC IS RESTORED FROM A SUBROUTINE 
6253 043360 O1 oS2Se5 MOV #52525, -(SP) ;DATA TO BE READ 
6254 4 Ol 000400 MOV : Sb., :C ER 
6255 o433 o1 OS4S66 MOV #1SK :START OF S HULAT D DISK DATA 
6256 74 O11 1$: MOV , thos :MOVE IN DATA O SIMULATED DISK 
6257 3376 O05 DEC Re : COUN 
6258 3400 001375 BNE 1§ ‘BRANCH IF 256 NOT COMPLETE 
6259 3402 005726 TST (SP )+ SURE -( P) 
6260 O43404 O22020 CMP (RO)+, (RO)+ J ER THE TWO ECC WORDS 
6261 O43406 012705 000017 MOV #15.,R5 D8 
eseS 043412 005020 2s: CLR (RO)+ ils miguERanc “GaP, AN 
6264 3414 005305 DEC RS EEE RANG ANCE GAP 
bebs 043416 001375 BNE 24 :BRANCH IF NOT COMPLETE 
6267 
6268 043420 004737 051254 ISR PC, J8FILLEC ; INSERT THE TWO Ecc WORDS ON THE DISK 
bees :IN THE CORRECT PLACE 
be?) #THESE ARE FOR ECC TEST ONLY 
6273 O43424 012737 177777 015142 MOV #-1 cc ; THIS IS AN ECC. T 
pers Se GOES, OSO72 Tour UFeR SE RROR POSH TION COUNTER 
be7e 043444 6135 $§ o50s02 MOV SEBRDER SHAD TIP "TERPORARY N RROR COUNTER 
be O434S2 005037 0460 CLR SeGECCL sece LOW ORDER T GENERATED 
6278 O434SE 995037 0504 CLR GECCe ECC HIGH R 0 BE GENERATED 
6279 043462 050476 CLR SDATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
6280 043466 005037 050500 €LR asZCODE :CLEAR LEADING ZEROS CLOCK COUNT 
esas 
be83 ;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
6285 MOV eFMNT22, a8 ITS PER WORD 
6286 ames ° sands eh uth ER , FORMAT 16 BITS 
6287 oS26S3 MOV 09.98 COTR+1 
6288 052652 MOV : COTR ig eet oR. rs) 
6289 052654 MOV 80; JBKEY : Yi 
6290 052656 MOV #0’ JSKEY iK Y2= 
6291 052730 MOV #256. ,a8DAWORD :NO. OF oaTa WORDS 
6e3¢ CLR aax :THIS IS A READ COMMAND 
be ISR RS, JUCRC :GO TO CALCULATE CRC 
e53e ICRC 
296 
6297 
be9e a7 THIS 1S TO ails RT ERROR 
6293 :#THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK’ 
£300 :#THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
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CZRIHB.P 12 10-NOV-77 11:09 T67 READ ECC ENABLED 30 SEG Ol 
3 *#THIS MOVE 
304 ONSEEO Dera? feseoe pecead MOVs SLEDEDE' SeDIEKs. 255 SoS cFORCE ERROR IN BIT Ose 
b305 Buseee §15235 1004 pa3363 MOV Ne > aes eRSe T aa N REG. 
6307 
6308 ;#THESE ARE REGULAR SETUPS 
6310 043574 9047 7 o4s764 ISR PC aseCLOISK i SETUP oGENERAL REGISTERS - 
6311 3600 1277? 1773 ! 151142 mov i e286. ay ad $6. 4 HEADER 0 aac 
BatS Base? 918542 BARBBd Move «SBC TNZBySRHBA EPAAR AUD "apes as 06 FEAG 
b318 043620 112766 g90000 000001 nove #01 (SP) . Wedoreeeran fh HIGHER HER BYTE 
£312 Ba 3e38 8} 7? bi 151126 MOV sented, aetior> 1B IT SE woro> 
e318 TREE AR ORRE ETT OR NOT GOING. 
ig 85 Be CHECK eb 
b3€0 043640 005077 151124 CLR @RHCA :CYLINDER O 
6322 
6323 ? 15176 MOV #REFOR, OR1 DATA=72 
£353 Buses paeg4s fi 124 CLR oeE eras ated FLAG 
6325 043666 004737 052510 ISR PC, J8COMHD 
6326 Hi THERE. B “READ ERRORS THEN 
6327 CC W CL NOT BE CKED 
fu 
6330 ;#IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
6331 ; KEROM HE CORK” ROUTINE THA 7 MEANS SECTOR GAP, 
6332 :#FIRST SYNC HEADER HEADER GAP AND 
ei ; SYN ee ee oe BY AND ine WERE CORRECTLY 
6 ;e ARE TO BE Cw ox 
6336 j#IN_C AO- DATA THE WR ie Peon B FER 
6237 . See a WITH EXPECTED DATA 
6238 | SSuRe ROM 
6 3672 005737 015124 TST as #ERFLG Y ERRORS ALREADY THERE 
6341 37 004737 O4S4E4 JSR C, J8PUTREG Save REGISTERS 
6342 043704 022737 100000 015034 CMP #OCK, O8ERI SONLY DATA CHECK ERROR SHOULD BE SET 
6343 3712 90140 BEG i BRANCH IF YES 
B34 3714 10402 OR i328 T ECC REGISTER SHOULD BE NON 
£346 i ONLY 1_OF THE | 32 BITS CAN BE SEEN 
Pua a SPATERN T Tine RHER1 
£348 043716 013746 OS0460 6S: MOV JeGECC1, -( SP) ick Fatt Phcahs 
6350 043722 042716 174000 BIC #174000' (SP) :KEEP ONLY 11 BI 
6351 043726 2637 O1S064 CMP (SP)+, JREC2 :COMPARE PATTE "REGISTER 
& 0437 1401 BEQ ? :BRANCH IF G 
6 3 043734 104032 ERROR 3 +11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
6255 043736 004037 051102 7$: JSR RO, J8ECORR :GO TO ECC CORRECTION PROCESS 


635 O43742e 9000000 8$: . WORD :EXPECTED POSITION REG. WHEN CORRECTION 
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READ ECC ENABLED 30 


CZRIHBO RPON/S- g _OSKLS CTRLRE MACYLL 30; 1046) 
CSRIHB. P12 O-NOV-77 Tb 

6357 ;IS COMPLETE 
6358 
b359 
6 3744 737 o4S464 JSR PC, J#PUTREG ; SAVE 
e3e3 3750 903535 oo8180 015034 CMP s0CK'ECH, J#ERI Mian ERRORS IN Riad ERROR IN BIT POS TION 22 
6363 R BIT SHOULD SET 
6364 043756 001401 BEG 3g HIPS 
6365 043760 104036 ERROR 36 maT ER OR INSERTED IN BIT POSITION 21 THRU 
6366 SHOULD SET 
6367 
6368 
6363 
637 
6371 043762 Qs: 
6372 043774 012700 015220 MOV SWRFR ; GETTING READY TO FILL EXPECTED DATA 
6373 g44000 012720 919000 MOV aoirnice, O Roe iY LINDER 5 
6374 O44 112746 0000 MOVB :IN LOWER ye GET SECTOR 
6375 o44G10 12766 000000 000001 MOVB #0; 1(5P) :GET TRACK HIGHER BYTE 
63 o4v016 1ebe0 MOV (SP) (RO)+ i GET TRACK A Ec TOR IN BUFFER 
63 O44 le MOV #0, (RO)+ :KEY1 IN ER 
63 044024 012720 0000 MOV #0’ (RO)+ ;KEYe IN BUFFE 
6379 044030 012701 000400 MOV wee. Ri ;DATA WORD COUNTER 

044034 012702 OSeses MOV 8 6 Re ;OATA 
6381 O4404O 010220 2s: MOV Re, (ROS+ :DATA INTO BUFFER 
382 O44042 005301 DEC RI ; COUNT 
6383 044044 001375 BNE 3s :BRANCH IF 256 NOT DONE 
£38¢ #ONLY GOOD DATA HAS BEEN PUT IN ’WRFROM’ 
6386 ' NOW THE INSERTED ERROR WILL BE PUT IN 

4046 012737 152525 015232 MOV 81 SWRFROM+<S#2> ; INSERTED ERROR IN BIT 32 

6389 O440S4 012737 152525 016226 MOV #1 + OeMRFROMs «269, x2} SENSERT ERROR IN BIT 4096 
6391 O440be2 915124 CLR QsERFLG . ;CLEAR ERROR FLAG 
b38¢ O44066 004737 O45464 ISR PC, a#PUTREG :SAVE REGISTERS 
5338 ;#NOW READ DATA BUFFER WILL BE CHECKED 
6396 O44072 004037 O46660 JSR RO, J8#COMPAR 
£297 4076 015220 WRFROM $008 FER ( CHANGED ) 
6398 4100 O16c64 REINTO ES) FER 
£399 O44102 O00404 44256. sneer oF CHECKED 
64 41 oui ie 4g iat POINT OR ERROR HEADER 
E401 41 411 . S$ RETURN. PO Nt FOR ERROR DATA 
6402 O44ile 104004 46: ERROR 4 
6403 4114 900207 RTS PC RETURN 45 § CORPAR™ 
6494 4116 10¢995 S$: ERROR 5 Ht NOS 0 4 ARE 
E405 ;HEADER WORDS 
ENCE £ :S TO 260 ARE DATA WORDS 
£40? O44120 900207 RTS PC :RETURN TO “COMPAR™ 


Jie 
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CZRIHB. P12 10-NOV-77 11:09 CURSORY IN ERRUPT LOGIC TESTS SEG 9152 
6408 .SBTTL CURSORY INTERRUPT LOGIC TESTS 
6410 
a 
e413 044132 012706 001000 MOV #STACK, SP ;RESET STACK 
6415 044136 737 S764 ISR PC CApaclO} K Cc EAR OISk 
6416 4142 Ol 14744 MOV RPVEC, Fi ; VECTOR AODRESS 
6417 41 127 4214 MOV oRPT I'(RO)+  ;SET INTE vec OR 
Pais Buaise BiSea? OBnSOD 177776 HOV $30 "eo SOFT BROCESSOR PRIORITY 
eed Mi 4 O1srii risiektea MOV eRov! aR BEY I N Riise 1 Sh oFouLD CAUSE INTERRUPT 
6421 41 013737 046334 001200 MOV OSTIMCNT, DRS TMP 1: COUNT 
4 O44 001200 1S: DEC JeSTMP1 :WAIT FOR INT RRUPT 
64e 4 1 BNE 1$ BRANCH IF NO RO 
byes i BEF ORE HIS IS ZERO INTERRUPT SHOULD 
6426 044204 737 O4S464 ISR PC, J8PUTREG :SAVE REGISTERS 
pie? 044210 104021 ERROR 21 : INTERRUPT DID NOT OCCUR 
6429 
6430 044214 RPTRP1: CMP (SP)+, (SP)+ ;REST T 
6431 O44el6 peases O4S464 ISR PC JaPuTREG 1 OEE OREGT STE 
6432 O44222 922737 OO4200 015032 CMP #sOVAIRDY,aeCS1 :°IE’ SHOULD BE LOW 
6433 O44e32 104021 ERROR 21 ; INTERRUPT OCCURRED BUT 
£434 :*IE" FAILED TO RESET 
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022626 
094737 O4S464 
104Ge1 


MACY11 3061046) 
T70 


177776 
001200 


RPTRPe: 


10-NOV-77 


11:48 PAGE 154 


PROGRAM INTERRUPT 


R 
ERROR 


SSTACK, SP ;RESET STACK 
PC, a8CLDISK EAR Or 
ae C,RO ‘GET VE Otek SS 
@RPTRP2. (RO)+ et Ge Pr ve CToR 
#340, { ) NE PRIORITY 
#240 PS i: PRIORITY 
eROY UTE aR1 ; cs Riise | SHOULD CAUSE INTERRUPT 
as Yel Srves 6B 
ous MP1 ae TER INTE RRUPT 
i BEF ORE WHE ROT Is 2EFRO INTERRUPT SHOULD 
(SP)+, (SP)4 ;RESTORE STACK 
PC, JSPUTREG :SAVE REGISTERS 
21 i INTERRUFT OCCURRED WITH 


PROCESSOR STATUS SAME 
DISK 


SEG 0153 
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CZRIHB.P12 = 10-NOV-77 11:0 T72 END OF DRIVE SEG O1S4 
bYbL 044340 004737 045764 JSR PC, J#CLOISK 

6463 12737 00 177776 MOV #0,P :R TATE PS TO 

6464 Baw 32 G1S7a iSile MOV SRONTT, -(SP) et ADY TO TYPE UNIT NUMBER 

646S 44 10% TYPDS 

bub 001112 MOV QeSERTTL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 
5468 1112 CLR aeSERTTL CL AR TOTAL NUMBER OF ERRORS 

6469 4 1108 LR #STSTNM CLEAR TEST NUMB NUMBER 

6470 015120 ST wSELECT bails OM 2 

B47] 74 1413 BES $ EST NEXT PBR Ive IF SO 

6473 4 37 001100 INC asesPAss NCREASE PASS COUNT 

5474 nae 104901 OavGEs TYPE SENONG YPE END PASS 8 

647S i37ae 1100 Hoy aeSPASS, -(SP) 

a 16 tbuupt TYPE L 

6478 Budesd bb01 ps 3e8e IMP atte 73 ;CONTINUE TESTING THIS DRIVE ------------ > 
6480 S24 005327 615114 3S: DEC SNOUNITS ;NO. OF UNITS PRESENT DECREMENTED 
6481 Bavesg O09). BEG OP :BRANCH IF atk. DRIVES COMPLETE 

54 i3 o1S112 MOV QSUNIT, RO SUNIT UNDER 

6483 044536 012701 615072 MOV SUNITS’R! 

pue4 guuede Gee100 1S: cue £R1)+, RO 1S thts pes" TESTED 

6486 O44546 Renee BR I ‘BRANCH IF NO 

6487 O445S0 011137 015112 2S: MOV (R1), a#UNIT :THIS IS NEXT UNIT 

648e O44554 000137 922636 IMP asTsts :TEST NEXT DRIVE ------------------- > 
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END OF DRIVE 


SEG O1SS 


- sett 
-SBTTL ###SUBROUTINES### 
. SBTTL 


OF HOW MH 4 ON ERROR WORKS. 
ON ERROR fein 


HON RIT ING ERROR IF fie LOOP 1S SET. THE 
® ASuALLY v BACK TO THE BEGINNING OF THE TEST. 


on THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 


:ETHE ReStrae nian fo Toq cOgnr male TEE engonan caw co ane: - 


3 He ER A THE RATION 
ie Prove SR Ek ae 


t KCORES THs THe END OF THE Test UNDER CONSIDERATION. 7 


i SAFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
; #NORMAL OPERATION WILL CONTINUE. 


TESTAD: O ;FIRST ADDRESS OF TEST 
OPERSEL: 
CLR PS ;MAKE PROCESSOR STATUS ZERO 
MOV QBTSTNM,-(SP) GET READY 0 TYPE TEST 
TYPOC !NUMBER 
HOV @SSLPERR,-(SP) }GET READY TO TYPE LOOP BACK PC 
TYPE , SCRLF 
RDOCT 
We, (SP) ;GET LPADR 
(SP)+, J8SLPADR 
— . ROOCT. 
MOV (SP)+ Seta ;GET LPERR 
mov a =(SP) 
apis a ~~ LEAR FL FOR R ERROR COMMANDS 
CLR te ELERR FLAG FOR On Ecc TE SF 
=i 7777 IT 1S _AN ECC TEST 
SHEN =0 IT IS NOT AN ECC TEST 
CLR asTSECCG VEN IN Cc T EVERY CLOCK 
Ss Not TO ON GENERATE Efe 


EfRyne.Pie 18-Nov-77 11:08"! SEND oF pass ROUTINE SEO 0156 


6S4S ;1F =177777 GENERATE ECC 
6546 ;1F =0 9 NOT GENERATE ECC 
6S47 O4S4S& 005037 O1Si44 CLR @eTESOTE ;DRIVE TIMING ERROR TEST 
6548 O4S46e 000002 RTI 


CZRIMBO, RPOY/S “6 DSKLS_CT CTRLRE 
cZRIHB. P12 10-NOV-77 

6549 

pee 

ee 

6554 

fees 

Bees 

65 

65 

6560 O45464 

6561 gues 2 012700 014750 

bobe 476 012701 015024 

6563 04 G1¢70e 000023 

6564 O45506 C1302! 

6565 045510 0053Ge 

6556 O45S5ie 001375 

6567 O45Se2 000207 


MACY11 SS ee 


PUTREG: 


108: 


-NOV-77_ 11:48 PAGE 158 


OF PASS ROUTINE 


-SBTTL SAVE REGISTERS ROUTINE 
; THIS SAVES T ONTENT L HARDWARE REGISTERS 
sIN MEMORY LOC TYONS TAGES FR “we” TO “ECe” 


irs 1 THe RESTS TE ARE DONE a SAVED LOCATIONS 
: ANO NO ISTERS. TH THEMSELVES. THIS WILL MAKE 
; ERROR ai, BAD DATA ALWAYS DIFFRENT 


MOV SRHWC , RO TARTING SS OF REG 
MOV awWc, Ri TARTING ADDRESS OF SAVE LOCATIONS 
MOV #@RHCC-RHWC+272, nie! OF REG. INTO Re 

MOV a(RO)+, (RID+ SAV: REG. 

DEC Re 

BNE 10$ 

RTS PC 


SEG 0157 
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C2RIHB. P12 10-NOV-77 11:09 SAVE REGISTERS ROUTI SEG 0158 


eses .SBTTL FLOAT 1 AND O 

fer TERS ufc Wok oF Alc Hobs HELP IST EN Ra STE 

bese Oussee CER 6 +B AROR HLT ADDRESS 

ba78 REGADR: 

6S BITST: MOV (RS)+, MASK FETCH TA MASK 

e573 mov £R5)+, RY SS OF REG. UNDER TEST 





1 
REGADR 
v RS RR RETURN 0 ADOR. 
: 03064 AOD con RS imo re TO JUMP OVER RTS 
1 1 MOV 81; DATA PA PATTERN 
ey 


hy 
Ses 
a a nn we uC 
667 Beers oe) Rot R ; SHIFT PATTERN 
B A T R 

i BNE BLT ;BRANCH IF NOT COMPLETE 

p23 BLTe: COR R RET MY Cr BRTTERN 
peas fesse BUTHE OMSTY GT, ROY ML Tay gan TT SPOS LR, 
6594 16 bos é sees ,  gehns WITH PATTERN 
A oe ee 
Bg Bee ee Bile my PERLE ALG se RCL 
6500 O¥SbSD 043737 ONEEEY 001126 BIC tied @¥SEDOAT ;AND MASK OUT RECEIVED DATA 
B02 Ouisbbe Oes737 OOlled 001126 cH @sSGOOAT, ausaooat;t DATA CORRECT 
BEO4 OMEE72 DON?T? 177630 eR Cpe, ALERR iGo TO REPORT ERROR 
6605 O4SE7E 104413 SCOP1 LOCAL SCOPE LOOP 
£606 O4700 O0020 is: RTS PC 


CZRIHBO,RPO4’S“6 DSKLS CTRLR2 
CZRIHB.P12 1:09 


6607 
6608 


oo 
Bes 


SESEETSSES 
WONTW £Wwlu-O 


a 


6623 
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ee 


OO ee et ee es eres ee es er esas 


18: 
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i AND O 


-SBTTL CLEAR MEMORY ROUTINE 


S_ CLEARS ANY BLOCK OF MEMORY 
LING IT WITH ANY DATA 


SR RO, CLAREA 
;STARTING ADDRESS OF BLOCK 


F 
C 

J 

¥ 

2 DATA TO BE FILLED 

L HAVE STARTING ADDRESS bp aLock 70 BE FILLED 


R cr de TION WILL iss TWICE NUMBER OF LOCATIONS 
HAVE DATA TO FI 

D DIVIDE ROUTINE TWO DECREMENT Re WILL BE USED 

MOV (RO)+,R1 ; FROM 

MOV (RO)+,Re eh ae 

MOV (RO)+,R3 F 

Sue R1,Re iN, Ror LOCATIONS MINUS TWO 

ADD ae» Re ;GET TWICE a OF LOCATIONS 

MOV R3, (R1)+ ; MOVE IN DAT 

DEC Re 

DEC Re 

BNE 1$ ;BRANCH IF NOT COMPLETE 

RTS RO ; RETURN 


SEG 0159 
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HB.P12 10-NOV- LOCAL TRAPS SEQ 0160 
6635 .SBTTL LOCAL TRAPS 
B63 8 04S744 0900000 LAD: a) 
6638 O04S746 777 001000 133164 T.SCOP: BIT #SWO9, aSWR 
6639 045754 1402 BEQ 1§ 
6640 045756 013716 045744 MOV SBLAD, (SP) 
Be4I 045762 O00002 1S: RTI 
6643 *Ex XAMPL E OF THE USE OF THE ABOVE 
6644 HIS WILL LOOP BETWEEN X: AND SCOP1 PROVIDED THERE IS NO “NEWTST” 
664S etn 8X, @aeLAD 
6646 :#X --- oon 
6647 1a oe een 
6648 1 a aoe mane 
6649 1 i SCOP1 
6650 
6651 
bb5¢ .SBTTL CLEAR DISK ROUTINE 
6654 045764 013701 014756 CLDISK: MOV QSRHCS1,R1 3R1 WILL 2 CONTROL AND STATUS! 
6655 O45 013702 014754 MOV aeR : *Re WILL CONTROL AND STATUS2 
6656 045774 013703 015000 MOV DBRHOS1, RS :R3 WILL 3 DISK STATUS REGISTER1 
6657 O4 013704 014760 MOV DBRHER1’ RY ?R4Y WILL BE ERROR REGISTER #1 
6659 012712 40 MOV 8CLR are ;CLEAR_ALL REG. 

6010 Ol1371le O1Sl1e MOV aeUNIT, aR2 :REINSTATE UNIT NO. 

6661 O46014 O05011 CLR aRi ‘CLEAR FUNCTION BITS 
6662 O46016 O00e07 RTS PC 


ESRIHE. 
6664 
666 
66 
6667 


3 


at atatatatatatatatas 
Bact ZnSO ue 


SECRAESEES 


BN 


6699 


BA tat at at ata a ata 
FRLGV-B 


HK KMOMmmmda 
NNNNNANNNNNANSN 
0 bs Bb bo bs he ee 
WUNIMWM £W-O 


1 tae’ OSKLS_CTRLR 
-NOV- a 11:0 


Pie 


g keeeecaceeee F557 
8 GNSRRERESGSS BPS 


oOo 
+t 
oO 
3 ee ed dd ed ed ed ed el ed ed et 


$132 
O4S464 
004200 


004000 
001122 


000200 
001122 


001122 


015054 
1100 
00 


000400 
001122 


000200 
001122 


001122 


000006 
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015132 
015032 


015032 


015032 


01S0S4 


01S0S4 


R BI 5 RM HESE 


Aye) one READY (RDY) IN RHCS1 = *, 
VI xf READY (ORY) IN RHOS1 = 
REGISTERS = 0 


i aeye pre OF JSR+4 
PC OF J 
VE GISTERS 
i BAVE D HAVE DEVICE AVAILABLE 
; AND 3 Y 
; H IF GOOD TO RHDS1 CHECK 
; BAD so TEST D DEVICE AVAILABLE 


ReGISier (RHCS1) 
VICE 


sess shad s dp 
Pa ste 


OGRAMABLE BIT 
THESE SET 
GOOD 
PRESENT 


REGISTER (RHDS1) 
HAVE DPR 


ee, Se 
;BAD SO TEST ORI 
wil 
VESTAERIVE REEDY nancy 

ip RE OMe BAG McSf- P88 (RHDS1 ) 


+ BR ORESS RE ISTER (RHDS1 ) 
;RHDS1 Sone 8 FFE°5 HER 
: THAN MO BR BER or 
L OT SHOULD BE O 
+ RETURN , TEST AND Hee - FATAL ERROR 


39 (1946) 10-NOV-77 11:48 PAGE 162 
CLEAR DISK ROUTINE 
.SBTTL CHECK DISK STATUS ROUTINES 
;#THIS CHECKS THAT E 
STAND CHE HECKS THAT Di hie PRESENT 
PeIT acep CHECKS THAT Ae Ot 
CHECKT: MOV (SP), a#PCISR 
SUB #4, ab 
JSR Pc’ #PUTREG 
CMP BOVATRDY, aacsl 
BEQ 3s 
BIT #DVA, aeCcS1 
BNE 1 
MOV R1, J#SBDAOR 
ERROR 26 
BR 3s 
1S: BIT BRODY, J8CS1 
BNE $ 
MOV 1, @#SBDADR 
ERROR 26 
es: R 3$ 
OV R1,2#SBDADR 
ERROR 26 
3S: MOV a80S1,-(SP) 
BIC 8VV!PROG, (SP) 
CMP #OPR! DRY! (SP)+ 
BEQ 
4S: BIT #OPR,asDS1 
BNE 
MOV R3, J8SBDADR 
ERROR 
BR 7$ 
S$: BIT sORY,280S1 
MOV R3, a#SBDADR 
ERROR 26 
BR zs 
6$: MOV R3, J8SBDADR 
ERROR 26 
7$: RTS PC 
gS: ADD #6, (SP) 


;ADJUST STACK PTR TO GET OVER HALT IN TEST 


SEG 0161 
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Pile 10-NOV-77 1 CHECK DISK STATUS ROUTINES SEG Olte 
046206 000207 RTS PC ;RETURN TO TEST AND CONTINUE TESTING 
;*#THIS CHECKS THAT DEVICE AVAIL ABLE (DVA) (ROY) IN RHCS1 = 
: #AND C THAT DEVICE P PRESENT (DPR), DEV ice REE ROY (DRY) IN RHDS1 = . 
:HIT Does’ NOT CHECK T BITS IN’T EGISTERS = 
046210 011637 0:5132 CHECKE: MOV (SP) asPCISR ;SAVE PC OF JSR+4 
Oubel4 be? 37 go0u04 015132 4.3 PCISR :GET PC _ OF 
22 4737 S464 Be SPUTREG : ISTERS 
26 032737 b2 015032 BIT sROY, a8CS! ; 1 SHOULD HAVE DEVICE AVAILABLE 
34 001004 BNE 1$ i BRANCH ReneS GOOD 
046236 010137 oOll122 MOV R1, a#SBDADR :FAILING REGISTER 
O46242 104026 ERROR 26 i RHCS1 IS IN ERROR 
:DOES NOT HAVE DVA, RDY 
046244 000427 BR 4§ : BRANCH 
046246 032737 oO04000 O15032 1S: BIT #DVA,aaCS1 ;RHCS1_ SHOULD HAVE DEVICE AVAILABLE 
046254 001004 BNE 23 : H IF GOOD 
010137 001122 MOV R1, a#SBDADR :FAILING REGISTER 
O46262 104026 ERROR 25 i RHC 1 wie N ERR 
046264 000417 BR us ; glee danis 
046266 032737 000200 O1S50S4 2s: BIT sORY,a#DS1 : PnoSy SHOULD HAVE DPR, DRY 
oe Bibes? 001122 BOY 23, aeSBDADR POTTING REGISTER RHOSI 
Todase ERROR 26° TRHOST DOES T HAVE DPR, DRY 
046304 000407 BR 4§ :BRANCH OUT 
032737 000400 015054 3S: BIT #O0PR,a80S1 +RHDS1 D HAVE DPR, DRY 
046314 901008 BNE Be : H IF HE 
316 010337 001122 MOV 3, J8SBDADR ‘FAILING REGISTER RHDS1 
046322 104026 ERROR 26 :RHOS1 DOES NOT HAVE DPR, DRY 
046324 000207 4S: RTS PC :RETURN TO TEST AND HALT’ - FATAL ERROR 
046326 062716 O00006 Ss: ADD 86, (SP) ;ADJUST STACK TO GET OVER HALT IN TEST 
046332 000207 RTS PC ?RETURN TO TEST AND CONTINUE TESTING 
.SBTTL WAIT LOOP 
;# WAIT LOOP 
:# ONE LOOP OR ONE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 
1H ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN 
a WITH CORE ERROR IS INDICATED AFTER BBOUT 650 MILLISEC (MIN) 
046334 177777 TIMCNT: 177777 ;WAITING COUNT 
946336 010046 WAIT.T: MOV RO,-(SP) ;SAVE RO 
046340 ol oo0002 MOV ecSP) RO :GET ADR $$ OF REG. ADDRESS 
046344 01003 go1204 MOV 0, aa$TMP3 WAT PC+ STMP 3. 
046350 162737 002 001204 SUB #2’ a8STMP3 T PC FOR TYPEOUT 
046356 012037 001176 MOV (RO)+, a8STMPO WA T REGISTER ADDRESS 
362 O1 0 901200 MOV Sociale T ON 
6366 tere 00060 MOV RO, 2(SP) RE TORE RETURN ON STACK 
046372 012600 MOV (SP)+_R TORE R 
046274 013727 046334 O01202 MOV SeTINeNT, aesTNPe: FERPORGRY COUNT 
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CZRIHB.P12 10-NOV-77 11:09 WAIT LOOP SEG 0162 
¢ 
£528 oueuoe 033777 001200 132566 15: BIT DeSTMP1,aSTMPO ;IS REQUIRED BIT THERE? 
6778 046410 001021 BN as ; H IF YES 
37 41] 337 001202 3 #STMP2 
6? 4 1371 $ : HIF NO NOT TIME UP 
6781 O464 13737 046334 901202 MOV STINCNT gesture; EMPORA 
6782 O46426 033777 O01200 13eS42 33: BIT DaSTMP1,d$TMPO ;IS REQUIRED OT THERE? 
6783 O46434 001007 BNE 2S ;BRANCH IF YES 
6784 436 008337 001202 DEC aaSTMP2 ; Ni 
6785 O46442 001371 SNE 3$ ‘BRANCH IF NOT TIME uP 
6786 O46444 017737 132526 001126 MOV JSTMPO, I#SBODAT REGISTER CONTENTS 
67 O464S2 104016 ERROR 16 D ON BIT FAILED TO SET 
7B8 O46454 OGoD00e 2s: RTI 
6789 
6790 
673! :* CALL FOR THE ABOVE WAITLOOP IS 
;* 
6793 le MOV aA, aexs A CONTAINS REGISTER ADDRESS 
B74 # - - - HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 
pf ae Dae ee 
673° ;* WAT 
£798 :#x$: 0 ;ABSOLUTE REG. ADDRESS UNDER WAIT 
6799 - "WORD O ‘BIT WAITED FOR 
6800 te : CONTINUE 


€b eb oo eDeD oo DED EDD 
TU >= bb bb be oe 


nore 
MOOD YOu s wry 


68e3 


LAs MACY11 Sh eg 


OS26S0 WRCHHD: 


0S26S3 
O0SebSe 


052730 


146152 
146146 


ooo0o01 
146136 


1 
4 
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-SBTTL SAVE ROUTINE 


TRA HRER TAs "TOPHAD EoERYGORESISTES 


Tee & Atk! 13 eSAVER 
;FROM 


:TO 
‘NUMBER OF WORDS SAVED 


MOV (RO)+,R1 ; FROM 
MOV (RO) +, Re :TO 

MOV (RO)+'R ! NUMBER 

mov acRi)+, (R2d+ : SAVE REGISTER CONTENTS 
BNE 1$ :BRANCH IF NOT DONE 

RTS RO 


-SBTTL WRITE CHECK ROUTINE 


;THIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA 
;CYLINDER O, TRACK 1, SECTOR 1, KEYS O 


; THESE ARE TO SET UP FOR DISKLESS USE ONLY 


MOV er NT ee asecYL ;CYLINDER O FORMAT 16 BIT WORDS 

MOVB Leen : TRACK=1 

MOVB S CTOR=L 

CLR :KEY1=0 

CLR iK Ye=0 

MOV To :NO_ OF DATA WORDS 

CLR asx :THIS IS A READ OPERATION 

JSR RS, a#CRC :GO TO CALCULATE CRC 

WORE 

; THESE ARE REGULAR SETUPS 

ISR PC, aeCLDISK ;SET 3 RAL GISTER 
: Le ISK GISTER 

MOV 8-40. , IRHWC 336 DA OS 4 HEADER WORDS 

INTO, RHBA ; TART NG ADDRESS OF READ BUFFER 

MOV $1 18p) ents =] 

MOV’ #1°1¢5P) ; K=1 IN UPPER & 

MOV RHOST s TRACKS 1, =1 IN RHOST 

MOV aPMTOotE CT JRHOF 1g git 
if RECTI N INHIBIT BECAUSE 
sECC _L Tet CKED YET 

CLR JRHCA sCYLL 

MOV JeWRCHDT, RL SWRI E CHECK HEADER AND DATA=S2 
: INTO RHCS! 


J13 
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CZRIHB. P12 10-NOV-77 WRITE CHECK ROUTINE 


68S" O466Se O04737 052510 JSR PC, a#COMHD ;WRITE CHECK HEADER AND DATA 
Het ;SAME AS READ HEADER AND DATA 
6860 O46656 000207 RTS PC ;RETURN TO WRITE CHECK TEST 


SEG S165 
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H8.Ple 10-NOV-77 11:09 WRITE CHECK ROUTINE SEG O1be 


-SBTTL COMPARE ROUTINE 


¢ teat eR sa Ph BUFFE g bP on TWO BLOCKS IN MEMORY 


ees ES TMPG Has eas OF Re RROR TO PRINT HEADER 
B88 i #STMPS HAS 0 ugRos. 18 Be” CORPARE RROR TO PRINT DATA 
6870 > #RY nae ONE THAN R oF “WORDS Pro BE COMPARED 


£875 Bucess 12001 ares (RO)+,R FER 

HS Rat Bleeee Re Paar ok s a) 

6876 ats 34 pispos 001176 MOV (RO)+; $TMPO Re TURN ON ERROR 0° ORINT PEADER 

6877 704 12037 001200 Mov (RO)+ TMP i RETURN, On ON ERROR TO PRINT DATA 

687’ O46? 12 10304 nov Ra, R4 : BEN WORDS TO Be COMPARED 

eae ay 6716 010437 052770 1$ MOV RY, ISERWORD ;FOR ERROR WORD NO . 

b88¢ O467 2 Oee1 2 CHP (RL +, (Re) ; COMPARE | 000 WITH TEST DATA 

6884 _ cata -_ 

6e8S 7 14137 ll MOV -(R1) GDDAT ; TA 

6886 Bae Se B1333 1186 MOV -(R 35 DDAT ; ona 

6887 946736 ? OSe7 UB R3, J8ERWORD ;ERROR WORD NO. 

5838 ad S Os 015124 rst pes ; BNE TE J REAY THERE 

6890 Bue 132222 aCe C, aSTMPO eet a PRINT NT HEADER 

beg 754 Qe Bs i BR H 9 AV VOID PRINTING NEXT ERROR 
7 132216 2s ISR aSTMP1 jRET a PRIN DATA 

68 glee c$ CMP (RI) +, (RE?+ AND = (Re) FOR ERRORS 

£894 4 O1 132150 aSwR, -(SP) iG Suit 

6895 O46 ove? 16 177177 BIC #iCBQ0) (SP) 3K EP é aie al AND 8 

e837 047009 14 E - Bro a . RACH our? F or 

peas eater 1344 BNE Pr + CONCH IF ALL NOT DEVICE 

£990 047006 4g 

£991 7020 o00200 RTS RO ;RETURN TO MAIN PROGRAM 


20 
$8 


on 
“3 


rat 


SEER EON 


COOKS rroo 
iiptatetetetetatetes 

os Po bo Po Fe Pe Be fe fe Pe 

WOO NMUIL WHO 


Ege 


WO 
Ww 


COoKOTCKMK KONO OO 
Ww 


PERE EE RORY 


oo 


@rormo a 
HOBBIRA 
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10-NOV-77 11:0 WRITE CHECK DATA 


-SBTTL WRITE CHECK DATA 
Iida OSUPRRLITTE BP. PRAM TE GEEEE OT 


; THESE ARE TO SET UP FOR DISKLESS USE ONLY 
2650 WRCHOA: MOV eFMNT22, aaCcYL io eheKen O FORMAT 16 BIT WORDS 


SEG 0167 


702 ? 
nas 7 62653 MOVB 41,98 COTR+i 
047036 11 730 909001 052652 MOVB #SECOTR is CTOR=1 
047044 ets ? S4 CLR aekEYl 1=0 
047050 052656 CLR ask Ve Yb= 0 
4 012737 052730 MOV #32. , J#DAWORD ike DATA WORDS 
047062 052660 CLR aex :THIS IS A READ OPERATION 
047066 7 047172 Jsr RS, J8CRC ;GO TO CALCULATE CRC 
047074 054550 WCRC 
; THESE ARE REGULAR SETUPS 
047076 004737 045764 JSR PC, J8CLDISK GISTER 
AND CLEAR Dick REGISTERS 
102 012777 177740 145640 MOV @RHWC DATA WORDS 4 HEADER WORDS 
116 Gi 016264 145634 MOV eRETATO, oF @RHBA is ARTING ADDRESS OF READ BUFFER 
116 1127%6 1 MOVB (SP CTOR=1 
i36 bi e586 4 , ee Hove el, 158) ST ? TRACK k=l, "ly GTOR= 101K RHOST 
4 = = 
134 biSeo9 bt ae88 145624 MOV faba + SRHOF weides€t WORDS 
ce c TION INHIBIT BECAUSE 
CC LOGIC IS NOT CHECKED YET 
42 005077 14S6e22 CLR GRHCA YEIN =0 
60 013711 015164 MOV pon HEK, aR WR HECK DATA=SO alto RHCS1 
64 004737 052510 JSR PC ConAD WRITE CHECK HEADER. AND DATA 
AD HEADER AND DATA 
047170 o00207 RTS PC ;RETURN TO WRITE CHECK TEST 
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CZRIHB.P12 10-NOV-77 11:09 CRC GENERATION ROUTINE SEG O1be 
634 .SBTTL CRC GENERATION ROUTINE 
6944 i: a, fee fetta RC FOR us af Que 
pate shelter FER TER pare enc URLS pene 
eSue iRe = THE Bit TION 1 TPUT BIT VALUE B 
634 ;R4 - TH SN ig i, bate Fe OY 
e381 thee > fy RB r PER WORD = 16 
b353 isthe -T MPORARY wl TRANSFER CARRY 
4 ;STMPS - THIS HAS DATA BIT VALUE D 
6955 
6956 ; FETCH DATA BIT D » 
6957 ; XOR 16 
6 XOR 2 
695 iE XOR 1s 
6960 ;RO ray i Be 
bare E Soe 18 B38 eh 16 
6964 :REPEAT 64 aa 
eee ;CALL J 
bags 3X Piast LBeAP TSN’ AT 
5368 :Y PUT CRC IN WCRC FOR READ GCRC FOR WRITE 
basa 047172 CRC: 
6971 047174 oO12500 MOV (RS)+,RO T POINTER TO cyl. NO. 
697¢ 7 1 CLR Ri LEAR WORKING LOCATION 
697 7el CLR ausTNps 
6974 14 001176 MOV 84, 38S MeO ; COUNT 
6975 eee Ol 001 16S: MOV (RO)+ oss MP3 3T Y WORD STORAGE 
£339 guzssn 1386 mov Sibi + PE eS RARY 
6 ow 1 1206 MOV « ThP3, QUSTMPY ; Y WORD STORAGE 
6978 7242 iss ROR TMP : T ies We on 
£328 Ri5S28 ROS087 RRABST BIT oatta. 1 : ON 15 NIGH 
6981 047256 001403 Q ; H IF POSITION 16 LOW 
bes By Q 100000 mov #BIT15,R3 :GET POSITION 16 
6 7 1S: CLR ;GET POSITION 16 
£98S 047270 063702 001210 2s: ADD aBSTMPS,R3 ig" ITION 16 WITH D 
4 047274 032701 oO40000 BIT sB1T14,Ri 31 By tion 2 HIGH 
6988 047 4 BEG 3$ i BRANCH IF POSITION 2 LOW 
£989 Ou? : 1009000 nov BBIT1S, Re :GET POSITION i. 
6991 047310 3S: CLR R POSITION 
047312 if: A RS, Re sor TH BoSITION 2 
6995 pet es 04403 Bea Nee a tl 8 15 Low 
? 7 100000 MOV #BIT1S,R4 OSITION 15 
£997 et Bios BR 6$ 
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6 S$: CLR RY ;GET POSITION 15 
£933. Busse Bea So4 6S: ADD R3,R4 :XOR P tT 48N 15 WITH B 
700 oy? 7 001206 ROR QusTMP4 :GET 38 Inro “on 

? 1 ROR i ‘GET C INTO R1 
7003 04734 TST R3 ‘TEST B 
7004 H NCH IF B= 
é 2 1 100000 IC #B1T1S,R1 ‘SET B IN POSITION 1 
aoe 7 aT 100000 7$ Is #B1T1S,R1 ;SET_B IN POSITION 1 
7008 047 7022S 10S S Re ‘TEST C 
7009 O47 00403 ght 11s : HIF Cat 
7010 7384 2 OL 020000 HM ' T13,R1 :GET © IN POSITION 3 
701 1 oeo000 11 I #81T13,R1 ;GET C_IN POSITION 3 
Bi Bae ce ig TESTE tee 
78g frie 2701 000001 Bic tafr0,R1 !GET & IN POSITION 16 
7017 O4741 701 000001 13$ BIS #BITO,R1 ;GET E IN POSITION 16 
7018 O47414 pee2o} 001202 14S DEC aastmPe :BIT E OUNTER 
7019 O47420 1319 BNE 1S$ {BRANCH IF 16 NOT DONE 
7020 ou7uee 005337 001176 DEC OES THPO ; WORD COUNT 
sos2  BueuSe 0135 MOV R1,a(RS)+ !PUT CRC WHERE DESIRED 
7023 O47444 piss3e RTS RS 


genie RPO4/S “6 DSKLS gin: MACY11 30(1046) nf -NOV-77 11:48 PAGE 171 
J 71 I 


CZRIHB. P12 10-NOV- SIMULATED DISK SETUP SEG 0176 
7024 .SBTTL SIMULATED DISK SETUP 
7025 


i YGINOER gig .BTTS PER HORD SET UP THE SIMULATOR DISK FOR 
BS hy i St RS, a#CRC 


;CALL JSR PC, d#SETOSK 


STEERS 


eres SETOSK: 
7 7454 012700 177400 MOV sozeeeRs"° ;DATA_IN THE DISK 
7038 o47460 o1270 000406 MOV ; 
70 7464 Ole OS4S66 MOV #0 ;START OF SIMULATOR DISK 
5040 ou7a7g 2 1S: Moy RO. RS oe :MOVE_IN DATA 
? 1 7472 DEC R : COUNT 
7O42 047474 1 NE 1 ; BRANCH iF NOT COMPLETE 
7043 047476 012701 000021 MOV #17.,R1 ie ECC 1 DATA GAP 
704s 047502 o0so22 2S: CLR (R2)+ ‘bea DATA GAP AND 
7047 047504 005301 DEC RK 
7048 047506 001375 BNE BS COUN IF NOT COMPLETE 
70s0 ;NOW SET UP FOR DISKLESS USE 
7052 7510 0127 01 0S26S0 MOV #FNT22, DUCYL i CYLINDER O (16 BIT WORDS) 
7053 Buveie il 533 1 052653 MOVB #1,a8SECOTR+1  ; TRACK= 
7054 Ou7ees 1 i Oaeb5e MOVB #1' a8SECO : CTORE 
7055 O04 1 1 54 MOV #1; aek 1 ;KEY1=1 

ou 40 187 O5e656 MOV a1)9 *KEY2= 

7 46 0137 30 MOV 2° aE SWORD 3NO. DATA 

? 047554 047172 JSR 5, a’CRC GO TO CALCULATE CRC 
7059 047560 Bo CYL jFIRST CRC WOR 
7060 047562 O54S WCRC :PUT CALCULATED CRC 
7061 047572 000207 RTS PC 


& 


een 


7063 


SEBeSREE SRN T BREE IS 


ree 


NNNNNNN NNNNNANNNNNASY 
BIRRIGR-B 


sO Os Os he be bs Be hs bt he he ho pe pe 


0-2 = b= be oo es bee 
MNO £ Wome 


RPOY /S - 
Pie 


6 a oun, Nad yes: 


10-NOV- 


00 OOK --00 
R 


—— eee 


014000 


7 015124 


2510 


O4S464 
015124 


OS2660 


MACY11 7 a O46 ) 


148070 


HECK HCE 


tone. 11:48 PAGE 172 


-SBTTL CHECK HCE ROUTINE 


TEEF U9, "aRBPERLT EoD? SHFEERDER COMPARE Enon 


;CALL JSR RO, a#HCCRCE 
; COM ee rape shRiTe BATA AND DATA 


ar 


17WMoO 


N. 
RreD BUFF ART 

e SWRI BATA OcRe 

H :H=1 HEADER CHECK. ma<0 CRC CHECK 
MOV RO, a8PCJ ; - 
ioe ay, gare SK : Lig oft UP GENERAL REG. 
MOV ( i$ 5 1 ; 
MOV (FO), -) ee, 
MOVB (RO)+) =(SP) : 
TST (RO)+ i UP TE RO 
rey eal + UPDATE 
MOV ( +, @RHOST + RACK Pe ror 
MOV (RO)+! NO. OF T +4 HEADE 
MOV (RO)+, IRHBA : 
MOV (RO) 


A 
; STARTING SS OF BUFFER 
+) 08x iX=0 aren AND DATA 
v SFMT pessoal 
" ra i Bae eke 
CLR geeRr ; 
SR COS ECORHO : 


1 OER SUBS, PRP HRP UEEOUE. FRO, INTENT 


Rom 

NE BYTE AAVE 00 Gone BY AND SYNCS HERE CORRECTLY 
‘3 Re DATA ARE TO BE CHECKED. 
RAPA. ERE Filer nex 
BNE ; 

TST dex ;1S THIS A READ 

BNE 3s ;IF A WRITE DATA BRANCH 
;NOW THE READ BUFFER WILL BE CHECKED 

AS Bataan? Bie Rei erTTEN 
‘ARE ROM BUFFER Hae BEEN FICCED WiTH EXPECTED DATA 


SEG 0171 
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CZRIHB.P12 10-NO'’-77 11:09 CHECK HCE ROUTINE SEG 9172 
7119 
al 047726 004037 C46660 ISR RO, J8COMPAR ; CHECK 
7121 0477 01S220 WRF ROM i G000 TA 
rigs Girree Baas see"? ttieabee Be pare 
7124 OM 46 1s +RETURN PCIN POR ERROR HEADE 
71 774 baz 758 ;RETURN POINT F RROR DATA 
71 eat 1 10$ RET F Cc ISON 
7le 7746 104004 1S: ERROR : NEX ® 
7128 047750 000207 RT Pp RET TO COMPARISON SUBROUTINE 
cie9 047752 104005 2s: ERROR 5S : NO 4 ARE 
oii ; D ngs HRITTEN ON 
5138 ; ? RE AND HENCE 
ci3s :READ INTO BUFFE 
£136 047754 000207 RTS PC ; R #5 LOPARTEON 
7138 047756 000414 ; JUMP OUT 
c140 Bitten 
oie Che N FILLED wr WITH EXPECTED DATA 
pial UEP Tih teses2 
7146 047760 37 046660 3S: } awe 
7147 047764 yes 4 INTO + EGY DATA BUFFER 
71NB 77 0S DISK : TEST BUFFER 
7150 777, a ;RETURN POINT FOR ERROR HEADER 
7151 7774 5 ;RETURN POINT FOR ERROR DATA 
715e 7776 10 - 10s ‘ TURN PO NT FOR GOOD COMPARISON 
7154 Beppe evita . RTS PC T TO BRO RR ison SUBROUT INE 
7155 050004 104005 SS: ERROR 5 H 8 ALL DATA 
ie Bie aah 
7159 os0006 07 RT PC ; Mit "8 He RISON SUBROUTINE 
7160 050010 20 10$: TS (RO)+ ; 
7161 O50012e 00144 BEO aE ; 
71be 4 2737 000072 oo1z210 CMP ig , aeSTMPS This uh 8 READ COMMAND 
716 2 1917 BEQ ; 
7164 O01 144730 001126 MOV ORWER! Q¥SB00AT ; TEST bata 
71g 050032 022737 000200 O011c6 CMP SHCE, a&S8D ; ONLY pee gey COMPARE BIT? 
716 00147 BEO 7$ ; bp 
7168 OS50042 O1 339 014760 045530 MOV JBRHER1, 2WREGADR’ ; ireGrST R ADDRESS RHER1 
7169 012737 000200 601124 MOV #HCE, J8SGDDAT 6000, Da 
7170 104027 ERROR 27 R AN FERROR ON THE 
7171 i HEADER ONLY HCE SHOULD 
7172 OSO060 OOO4ED BR 7s :B 
7173 O500¢e2 11S: 
7174 O50062 017727 144672 001126 MOV ARHER1,ds8S$BDDAT ; TEST DATA 


ken sec RPOY/S’6 DSKL 


NNNNNNNNNSNNSINSS 
gapeoorecreacrecnnacenncny 8 3 
MH BLOVFRLOO-OBOVERLOM— OBB B 


NSININNSNNNNSISIN 


“I 
tJ 
oO 
w 


7204 


“Pie 


10-NOV- (3, 


CTRLR2e 
11:09 


050070 022737 100200 


a 


a 


en ed de eee 


a8 8 


104027 
000416 
017737 
022737 
001407 
012737 


013737 
104027 


000200 


014760 
100200 


MACY 11 a AY 


001126 


04SS30 
001124 


001210 


001126 
001126 


04SS30 
001124 


001126 
001126 


HE 


6S: 


O46 ) 
CK 


12$: 


7$: 


14 
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HCE ROUTINE 
CMP #DCK! HCE, J#SBDDAT jONLY HEADER COMPARE BIT? 
_ " ; 5 T BECAUSE ECC IS NOT READ 
MOV DSRHER1 , DBREGAOR’ ; REGISTER SS RHERI 
MOV #DCK! HCE, J8SGDDAT : pra 
ERROR ;AFTER AN ERROR ON THE 

;HEADER ONLY HCE SHOULD 
BR 7$ :BE SET 
CMP Us , a8STMPS :IS THIS A READ COMMAND? 
BEQ ; H IF A READ 
MOV RHER! aes EST DATA 
CHP Cae :ONLY CRC ERROR SHOULD BE THERE 
MOV oan Ry GADR ;REG. = RHERI 
MOV — ; “DATD 
ERROR : AFTER A CRC ERROR ONLY CRC 
eR - i ULD SE 
MOV ORHER1, I#SBODAT ; TEST DATA 
CMP #OCK!HCRC, auSBO0AT HCRC AND DCK SHOULD BE SET 

Sg RTF cb BECAUSE ECC IS NOT READ 

mat ac: HCRC 2 hes 
MOV QSRHERI, Shae Fa NG Bee PLES RHER1 
— my Soe SEP? 

Bex Is eae PAUSE EOE RE 3e 1S NOT READ 
RTS RO : RETURN MAIN TEST 


SEG 0173 


CZRIHBO, RPOY’S’“& DOSKL 
C2RI 


Pile 


10-NOV-77 


012777 
00S077 


000207 


$CTRLRE 


11:09 


MACY11 30( 


144520 
144504 
1ideos 
14450 

144466 
144472 


050326 


144462 
144434 


O46) 
T 


1 
EXIT WRT 


MIDDLE: 


MID: 


F14y 
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10-NOV-77 
ADER & DATA ROUTINE 


-SBTTL EXIT WRT HEADER & DATA ROUTINE 


ih 


COMMA 
BA IS SET 


Y 


MOV @BWRIFOR, ARHCS1 


MOV SWRFROM, IRHBA 
MOV 10 ST 
BIS eBat, IRHCS2 
MOV BPNTee, ORHOF 
CLR C 

MOV #1, d9MID 

MOV 8D0MD, JRHMR 
BIS 8GO, MRHCS1 
ISR R1, J#SEARCH 
“WORD O 

RTS PC 


te ie RAND BATA LEAVE AT THE MIDDLE OF 


ee ee reeck 0, CYLINDER 0 
BOs JSR PC, SeMTOOLE 


WRITE HEADER AND DATA=62 


IN 
10 

S=WRF ROM 
ead TNoRE SECTOR=10 


re od INHIBIT 


f 


wt oF 
o 


Ls 1_SO THAT 
THE 


AN OPERATION 
OR_ SECTOR 1 
4“ MOOE 


A 
233 
BRE 
+ 


SEG 0174 
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-SBTTL JAM CURRENT CYLINDER ROUTINE 


TRUS BPRRETOE Hlth SMM IME SURRGN Et KR, Pcrsre® 


BUHICH WILL LOAD THE CURRENT CYLINDER WITH THE BESIRED CYLINDER VALUE 
fRCALL IS: 


i+ JSR RO, JSMAKECYL 
# xc ;DESIRED VALUE OF CURRENT CYLINDER 
MAKECYL: 
010037 015132 MOV RO, BEPC ISR Sie OF pores 
res aanagte scree ens aoY Pabes sPce> igeyT I RG READY ¥ TO FI DESIR De CYLINDER 
Nettad 144410 MOV Re SRC PILL bes ED CYLINOER RE 
77 144376 CLR SRHDST MAK E SURE SECTOR’ tBAeK IS NOT ILLESA 
013 77 O1S200 144364 MOV @SSEECOM, JRHCS1 jEILL 
12777 1 144376 MOV #0MD , JRHMR :SET DIAGNOSTIC MODE 
777 000001 144350 BIS #GO, MRHCS1 :GO TO SEEK 
NOP > ALLOW FOR SEEK TO HANG UP 
NOP SALLOW T FOR SEEK TO HANG UP 
NOP ALLOW T FOR SEEK TO HANG UP 
0 NOP ALL T FOR SEEK TO HANG UP 
37 04S764 JSR PC, a8CLOISK 7G VE IN T 
017737 144366 001126 MOV ORHCC, a8SBDOAT ; TES A 
020537 001126 CMP RS, a#$B0DAT :COMPARE CURRENT CYLINDER 
001406 BEQ 1 ; BRANCH IF GOOD 
010S37 001124 MOV aseSGDDAT :G00D VALUE RHCC 
013737 O1S014 o04sS530 MOV DBRHCC, IBREGADR :FAILING REGISTER ADDRESS 
104030 ERROR 30 ; CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
- :REGISTER AFTER A SEEK AND AN INIT 


CZ2RIMBO,RPO4’S’6 DSKLS CTRLR2 
CZRIHB.P12 10-NOV-77 11:09 





OSO4SE 


000060 


oso4e0 ocoocc 


os0%6e O00000 


OS0464 9090000 


NNNNANNNNNN 
WIWILIGII WI GIGI) 
TUM bo 0 . 
NM -OWONOW £W 


OSO4EE 113713 


MACY11 ae 
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AM CURRENT CYLINDER ROUTINE 


-SBTTL ECC GENERATION AND COMPARISON ROUTINE 
;#THIS SUBROUTINE GENERATES AND TESTS ECC 


3; #CALL JSR PC,ECTEST 

PI =100000 

PIES =4 85 

PIE3 =20000 

PIEY =] 0 

PIES =4 

PIEs =2000 

PIE7 =1000 

PIES =400 

PIES =e 8 

PIE10 = 

P 1} =4 

PIE1 =20 

PIE13 =10 

etele = 

PIEIE = 

PIE1 =100000 

pies 230888 

= 

pie} Ba 

PI 5 = 0 

PIE =2000 

PIE23 =1000 

P 4 =4 

P ze 

P =] 

PIE2 =40 

PIE28 =20 

PIE29 210 

PIE3O =4 

PIE31 =2 

PIE32 =] 

ECDATA: O spare BIT FOR ECC 
;IF ALL ONES THEN CURRENT BIT IS A ONE 
;IF ZERO THEN CURRENT BIT IS A ZERO 

GECC1: O 1 ORDER ECC WORD TO BE GENERATED HERE 

GECCe: O fe ORDER ECC WORD TO BE GENERATED HERE 

TSECCG: O :IF =177777 GENERATE AND TEST ECC FOR THI 
;IF =0 DO NOT GENERATE AND TEST ECC FOR T 

NCODE: 386859. ;N-CODE WORD 


SEG S17& 


Ye 


Bm Be 


‘SiB-NOWe 


000000 


oo0000 


WN 
oO 
LA) 


£ 
— 


age 
tets; 


000 
Rie 
ast 
O00 
LTA a) 


177776 


177776 


137777 


Ti 


MACY11 ae "TS at | oie A 


ECC G 


ION AND coneA ISON A ROUT INE 


NCOUNT: N CODE 
POSITI: c Post Tiong REG GISTER 
ee ect T AS COMPARES ARE 
DONE COON LATER 90,4425 
DATENV: O spare or ay FOR T out 
maxX F 1224 4ox6 
ZCODE: O eee aoe nae FOR TYPE our 
F WHEN POSITION COUNTER 
sae Noch Os 28859 
HAD TMP : ; TEMPORARY HARD ERROR COUNT 
Pile: 0 
Pee: 0 
Pe: 0 
ECTEST: 
MOV QeGECC1,R1 sECC1 WORD 
MOV gaGeCCe Re :ECCe WORD 
TST asECDATA :IS CURRENT BIT A ONE 
BEQ es :BRANCH IF CURRENT DATA D=0 
F CARRY IS NOT ZERO THEN D=1 
NVERT X32 TO GIVE RO 
1$: ins 
BIS RePTE32, R3 
eee 
BR 83 
; IF CARRY nde ZERO THEN D=0 
:X32 BECOME 
2s: Mov RL 
BIC BiCPTE32, R3 
MOV R3, RO 
3S: CLC 
ROR RO 
ROR RO 
TST R 
BEG 10$ ;BRANCH IF RO=0 
; INVERT Xe 
MOV R2,R3 
BIS eftCPIE2,R3 
COM R3 


SEQ 0177 
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r3G3 SEBES] RACEEG SEDER meg 


7381 


338 ; INVERT X11 
7384 

7385 0624 0. MOV R2,R3 

238 Ob 177737 Bis asCPIE11,R3 

7398 050634 01 050506 MOV Ra, aeP12 

2389 050640 006237 O50506 ASR aePie2 

7391 ; INVERT X21 

? 

$305 050644 010103 MOV R1,R3 

739% 05064 052703 173777 BIS etCPIE2Z1,R3 

7395 9=065¢ 605103 COM R3 

73% 54 0103 050510 MOV R3,a8P2e 

7397 OS0660 006237 050510 ASR asPe2 

3338 ; INVERT X23 

7400 

7y 4 9010 MOV R1.R 

74 pepeee p29383 176777 BIS BtePTE23, R3 

7403 72 905103 COM R ; 

74 pepe 55 010. ososie2 MOV R3, aeP24 

5405 050700 006237 O50Sie ASR aeeey 

7407 ;NOW THAT RO FOR FSITION 
7408 : P3 FOR TION 5 
7409 ; P12 FOR POSITION le 
7410 : Pes FOR POSITION Be 
out ARE KNOWN THE ROTATE LitL BE DONE AND 
pais i OEE BITS Time IN 

7415 ? ROR Re 

741 1 ROR RI 

oats 1 3700 ososo4 BIS geP3 RQ 

7418 714 SO 60S0506 BIs aPle, 

7426 950720 gue70e 120026 Bic SPIE 1!PIES!PIE12,Re 
74>] ‘ 

74 ? CLR RO 

742 050730 o3700 050510 BIS aeP22,RO 

74 734 700 O50S12 BIS aePe4 RO 

a4 Boras 2701 002400 Bis aPI 22! PIE24, RI 

ca O746 Bs6081 B re 

74 ;THE PROGRAM COMES HERE IF RO=0 
aM : :SO AFTER ROTATE RO GETS PUT INTO POSITION 1 
74 oso7s0 902 10S: ROR R2 

743 peases lat date ROR Ri 

7434 O€07E4 O42702 100000 BIc #PIE1,R2 


Se 55 


RPO4/S’“6 DSKLS CTRLR MACYL1 30( 1046) -NOV-77 11:48 P 1 
-Ple 1B-Rowes? 11:0 3B 6d GENERATION AND COMPARISON ROUTINE ‘ SEG 0179 
OS0760 010137 os0460 12%: MOV R1,@8GECC ;SAVE ECC 
g50764 1 3 O462 MOV Re’ JaGEC ¢ 
0507 ? 0464 TST A 0_B€ CHECKED 
217 777 ? Test HARDKERE 
050774 001432 BEQ 14S : RANCH 5 oP NOROWERE NOT NOT 40'6 BE CHECKED 
;#CHECK HARDWARE 
050776 032777 o00400 130134 BIT #SW8, ISWR ;IS SWITCH 8 SET 
O51 901 B 15$ : BRANCH ir S Is SET 
1 3008 000100 130124 BI #56, ISWR :1S SWITCH 
051014 001401 BEQ 15$ : H IF IS NOT SET 
051016 21 BR 14 : IF SHIT H NgT SET AND 
; ITCH I T HEN 
1 010146 1S$: MOV R1,-(SP) : PATTERN REGISTER 
$2159 Ouerie 174000 BIC e174 (SP) 090 Y PATTERN Bits 
051 0226 143756 CMP (SP) +, JRHEC2 :C PATTERN REGISTER 
pet 8ss 001404 9 a a :BRANCH IF GOOD 
051034 737 oO4S464 JSR PC, JSPUTREG TER 
951040 a3 ERROR 35° SOOT FERN REGISTER IN 11 BITS IN ERROR 
OS1044 023777 OSO472 143734 13S: CMP dePOSITI, DRHECL | CORPRRE.POISTION REGISTER 
051052 001403 BEG 14S :BRANCH IF GOOD 
-TO SAVE TIME 
051054 004737 oO4S464 JSR PC, JSPUTREG REGIST 
051066 104035 ERROR 35 Post a N ERROR 
S NUMBER OF CLOCK 
a PROM gESINt COMMAND 
IS THE CLOCKS “i OF Me R/W DATA FIELD ENVELOPE 
PIN a WRITE THERE ARE 10000 OCTAL CLOCKS 
j IN A READ THERE ARE 10040 OCTAL CLOCKS 
;"N=CODE 2 ROS* GIVE THE NUMBER OF CLOCKS 
: GIVEN F HE LE ING ZEROS FIELD 
;MAX COUN 15 11 OCTAL 
?™Go00D POSITION” GIVES NUMBER OF CLOCKS 
i GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA 
MAX COUNT IS 1004O OR 10041 OCTAL 
051062 14S: 
05107— o00207 


RTS PC 
-SBTTL ECC GENERATION CONTROL ROUTINE 


;*#THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE 
j#FOR ER CR satay SAE OcESS 


; JSR 
;# XP EXPECTED. POSITION REGISTER WHEN CORRECTION IS COMPLETE 


SEG 0180 


Li4 
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wheter 


le 


ESRyne. 


ty ce 
be oOo oOo 
la ce 
an cee 
lw a Ww ww Le 
rom = Ww Zz 
WwW oO oO - lu 
| oO « oO > w a 
la wy oa ~ 
= wn N § EG i . 
° . g S185 ti 3 
- oO la la) Hz te | oO 
= oO [4 aWWIO Zoulw uJ oO 
» § Cn hm ce 
cod ec lod SSS x be YO ge 
© oO 54 oO Orn at WwW oO 
tad oO J &. WF OZO Z ra 
g 2-5 2B eee, S. & 8g 
S fet «= Cree ENB 
ly lanl enn w @ eo _ 
Gi ad ne “tie <IO@ ee «86 S a 
£ + Gite “ES0CU oO TS 8 6 
, pakeo Sess aero ES, | OE ae 
oo or har) - bELeayoS 4 Ww w feq ae 
w w Zzz YO | al aol a ~a at x 
# yycuge § 2 ot! Qn G5 yoW a Ss 
re oS 52 e ucw wd “oe w xO 
z aset  £" 5" Gtcge au H- gu. Sday Su Sc 
= eascn rH Pe ONS YS OS we 3 
= ro WISUSOW Sw SxS Non Seon 8G oe 
g #tnsug sesso ee seeaye Be pos Bf 64 
S geyeus ASSASSASB<rHS5 Gta WdSS ge Hd 
oo ee ee eG se ee oe see ee ce ee a ae ee eeeresce . ace eee cee pn eecse 
= & Or 
~ otto) 
S 2 : wd 
a FES | 5 
sae - & ie o - & car 85 oa 
ee“ia 5 § gy ESE F e BA oe BR 
aattos «68 8 8 aa Hq 3S xy 
ya tot Sesuadta 38 atian-or Fon £2 22 o 
2°38 ic} fTammourRenm wer am s20a—- -Ir 22 « 
w x 
_ . Ss wii 
>oa>>>a -WO (S) COrworca mo P Mo w 
o Sa888d 9 beweaze Zee Geeta She Fe MP 
wo a 
oO ge 
a ra) = es os ee = 
Cc oO tA A aA ee ws A 
lw tw “4 0 tj ad | w 4 
s aw 
z zz 
3 B 2 
yzo0=2 wo egy 8 = aus funy 
eB zz ae : Bs Bee 89 
az BR 8 z ou 39 
BARS“R ORBRSORE ABS Mos BA Ochs 
Sonn pevaeie hae meso Rese ORR ON 
ataces 88 oy gts 84 gress ys 8 


ttt te AMM tat mt tetnd wm cum eucucuty 


TEELER EERE R REE RERRREPREPEPER ERR eer 


35 0$1100 000000 
02 
06 

4 
e 
32 
a2 
: 
S4 
62 
66 
74 
76 
le 
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26 
3e 
36 

240 
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ZRIHB.P12 10-NOV-77 11:09 SOF TWARE A SK DATA SEG C181 
7540 .SBTTL SOFTWARE DISK DATA ECC GEN. ROUTINE 

4 *THIS OUTI NERATES THE FOR WHAT IS ON DISK AND INSERTS THEM 

43 ON PoehT TONS NF eee BBO AND S Steete 


FILLEC: 


Deaeo CLR He ray Se me EeaiT ION 


- 
at PRS 
N 
o0O 
rr 
DD 


804339 oso¥ec osssEE ROW BGEC rexecdeeane sTNSERT beck: “NOT, Bone 


C1,a80 
Biaz 3? OSO46e 055570 MOV DNGECCe: ded 1eKs<oe9. #2>; INSERT ECC2 ON DISK 


Bet 
Bs Bae 
137s BIER Bacaks eek HE Ta eel Ech eee 
: i ? Qs: nov ian ; NUMBER OF BITS PER WORD 
ae O81 é 7 177777 OSO4S6 oe 3 iis Q*8ECDATA ; we Poe eietloe = 
7558 Osis BbbsGe oSo4s6 11S: CLR #ECDATA tECC BH Tog 1S AY ZERO 
7359 Deiave 737 OS0S14 128: apr PC, OMECTEST ; E ECC 
cob aes 1364 BNE 10s BRANCH If 1 BITS NO NOT DONE 
1 
051364 
051406 


5st ay 


EY I 


7601 


10-NOV-77 


11:0 


RPOY/S’6 OSKLS CTRLR2e 
l2 3 


oo be 


wit £e 
2735 
abe 


RRRRRRRRRRRRRRR 
Shes 


De be he ae be be he Be oe 
ul 
PP 


aS 
oe 
ieee 


tes 
ES 


2 
3 
ENS? 


SES 


1) 


O0Se4S4 


a 


NNO) 
NOHVEWIS 


014756 
060346 
Ses 
Sie 


000000 
014756 


014744 

i756 
014744 
000200 
017356 
051410 


Bsee0 


010000 
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PAGE 183 
OFTWARE DISK DATA ECC GEN. ROUTINE 


-SBTTL RH BASE ADDRESS CHANGE ROUTINE . 


L_ ALLOW THE CHANGE OF THE BASE 
O ANY TYPED VALUE 


;GET READY TO TYPE OLD BASE 
; INITIALIZE THE TTY KEYBOARD 
;GET_ STARTI S OF REGISTERS 
Soreby Gr nec iOPRs 
: M teat TEST THIS ADDRESS 
HE OLD ONE WAS RETYPED 


Ger The RESS DEFSET 


i 
ONE LE SS TO CHANGE 
DAS. 
IGET READY TO TYPE OLD VECTOR ADDRESS 


;SETUP VECTOR ADDRESS 


;ALL DONE, NOW START OVER! 


S ALITTLE ROUTING THAT TESTS NED BIT 11 IN RHCS2 
OR EVE 


5% THIS ROUTINE WIL 
a ADDRESS FROM 176700 
BASECH: 
v QBRHCS1 , -( SP) 
TYPOC 
PC, a8STKINT 
RDOCT 
MOV #RHDB 
nov * ; a as4 
CMP a Thm. ass 
BEQ 1 
fig SeGRe3, asp 
2s: abe ep CROSS 
DEC Ri 
BNE & 
1S: MOV SRPVEC, -(SP) 
TYP 
RDOC 
MOV (SP)+, JBRPVEC 
MOV aerHcs!,-(SP) 
TYPOC 
MOV DORPVEC, - (SP) 
TYPOC 
MOV #RA, - (SP) 
TYPOC 
IMP asBEGIN 
ADTIMO: CMP (SP)+, (SP)+ 
IMP asBASECH 
satura 
;*THIS ees HERE F 
:#T0 BE v3 ONLY I 
*#WITH WHAT IS REALY 
ERUNIT: O 
ERSTART: JSR PC gact O1SK 
MOV QSERUNIT, IR 
1S: TST aJRY 
BIT #NED, AR 
BEQ 2s 
BR 1$ 
es: BR 1$ 


F ORI vEs PRESENT LOOKING AT NED DOES NOT AGREE 


;UNIT UNDER MANUAL TEST 
;SE bits REG. 


SEG 0162 


coo 
oe oe 


pe 
ie 


SEPRORR 


m 


we 


047S“6 


& DOSKL 
10-NOV- 


“3, 


CTRLR 
11:0 


MACY11 38 1046 


Oe 


x me 
eS 


Se Or ee er ee eraser esas 


LS. ee ee 8 


OS 


: 


MULATION 


rae yon nOER " 


cay 


ath i : 
Sere tay TO FOUND OM DISK 


e one - Ben a seer 
ye tt Re ON DISK 
votre it y Bt Ls FOUND ON DISK 


3 #K y suit " Meye T 
FOUND ON DISK 
3 #;X= 


mer 


“Ute CTOR a] 
Lr. KEY1 10 Ca 


1Q-NOV-77 11:18 PAGE 184 


IN A Wait Te he Rano fa co FILL THE FOLLOWING 
; Yew! BySk , 

Fe Gar te a = 

: = 

REIS ITH KEVL To oN BieK 

:#FNWORD= NO OF DATA TQ. BE WRIT WRITTEN ON DISK 

j #THE COMMAND THEN IS . 

;# 

,# 

;* 


ree FOLLOWING 
ON DISK 
K T FOUND ON DISK 


ISK 


URITH R OF DATA WORDS TO BE WRITTEN 
N IS JSR PC,COMHO 


LL THE FOLLOWING 


TA C a THE POkt ING 
eater R TO BE FOUND LO ON ee SK 


rth Eve TO SEO 18 


SEG 9183 


g 


o 


Sh 
@-iorul Zuo 


o 


a | 
re] 


gaialatatttaite 


33 
Re 


“J 


SEE8p 


- 


~j 
o 
fv «] 
~~ 


Veeeaaataa 
BSBIRR 20 


BRRRERRAR, 
QRRIER— 


Oe ee 
WONOUI£ WHO 


YIIIIIIIIIIIII 


\ 
Foes 


RPO4“S’& DSKLS CTRLR2 NACY11 39 O46) 10-NOV-77 11:48 PAGE 185 
P12 10-NOV-77 11:99 1SK SIMULATION SEG O1e4 


; #WRIT aprile oh a 
;#0R R COMMAND, I.€ DATA ONLY, OR HEADER AND DATA 


;*#THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 


+e ISSUE S DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE 
salt THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL 
*#OTHER SUBROUTINES. THE SUBROUTINES CALLED HERE ARE: 
3% ARCH S SECT CLOCK TO SET SECTOR FOUND FLOP 
;# ad CT HE R 
ta WROATA:- rene S THE Ec? DATA (WRITE OPERATION) 
: REDATA tREADS THE SECTOR DATA (READ OPERATION) 
0S2506 RUNCTR: .WORD 0 
052510 yetseid 015132 COMHD: MOV (SP), J8PCISR ;SAVE PC OF JSR + 4 
052514 162737 000004 015132 SUB #4, a&PCISR :SAVE PC OF JSR 
052536 012777 oO00001 142 MOV 80MD, @RHMR ;SET DIAGNOSTIC MODE 
44 777 RH IS #m NX, SRHNR : Tt T ¢ INDEX. x 
* Nene a feats PST 
777 1 , SRHCS1 UE * BIT 8 Hoe ee TrLL * RUN’ 
Une JON Cc HAS = 1 BSUED BY THE TEST 
Os25e6 900113 oS2506 RUNHAT : MOV & SRUNCTR iL ALL Ox. 4SOUS FOR 11/50 CPU 
1S: DEC rm) TR ;COUNT DOWN 
O0S2600 001375 BNE rt} ;CONTINUE UNTIL = O 
1 MOV SECOTR, -(SP) IRE CTOR/ TRACK 
Besene agri 035835 Bic || BSP PaO, (SPD Rie "ore Ly SECTOR 
052612 12637 MOV (SP)+, JKTRK 
052616 0041 056716 JSR R1, aeSEARCH SAVE EER CLOCKS ‘---------------- > 
Pesees B127G) gouewg mer gg Henge en 
30 i 1 ; nov at Benepe Re gee SSYN 
40 8iBt 7 Se £, MOV Ri‘oe penn NTO HE 
052644 004137 062772 JSR R1;aSROHEAD = § ;READ THE HEADER <------------- > 
os2ts0 op0000 CY: WORD O ae ween ADDRESS 


CZ2RJHBO, RPOY’S “6 


CZRIHB. P12 


oS2662 


OS2664 


OS26EE 


052710 
OS27 iz 


OSKLS CTRLRe 


10-NOV-77 11:09 


000240 


O0Ge40 


000240 


0010i1 
004137 


015124 


OS2660 
052764 


OS4236 


MACYL1 30( 1046) 19-NOV- -?7 
DISK SIMULATION 
ate 
KEYe: WORD 
xX: WOR 0 


SSYN: 


HEDGAP : 


HEDSYN: 


11:48 PAGE 186 


;SECTOR/TRACK ADDRESS 
sKEY1 WOR 


EE WATTE. COMMAND 
X=6 READ CORMAND 


;DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 


NOP 


NOP 


NOP 


TST 


oSR 


asERFLGS 
OUT 

aex 
DAREAD 
adsNOSYNC 


OUT 
R1,a8WRDATA 


; 
; 
HS 
Ts cect 
; WORD 


uae = EN THE ROHEAD 
mt He ae syne 


“THIS T 1S THES HE FIRST 


a Tat 


TEN RIGHT. 


; IF 


GAP THAT R12 IRON 


ONTAINS 


“WORD NO” C 
338), on en IT lode THE tHiRo 


HEADER 
WRONG. 


; DATA” CONTAINS WHAT IS 
GOING ON THE DISK’ 


Tf, “ERROR 3” _ INSERTED BY RDHEAD 
reate NE, THEN THE HEADER SYNC 
TED BY OF IS WRONG, 


OF THE A ig 4 Aecpengaie 


Fi TBYIE TS HEADER 0, — 
iCeey 1 


T BYTE 


SYNC. 


;"BAD DATA” HAS WHAT IS GOING 


:ON DISK. 


; WERE ANY ERRORS DETECTED ? 


;IF YES, EXIT 


PS 7. A. DATA B WRETE OFS OPERATION ? 


ie taTS FoR oe Pore 

SHUT OFF 
Be IF SET 
;WRITE DATA < 


ED HE a. ERROR COMMAND * 


OSYNC=- 1 THE HEN WRITE OR READ 
$0 BRANC H OUT 
YNC=0 THEN CONTINUE 


SEG 0185 


ZRIHBO, RPO4’S “6 DSKLS_CT CTRLR 
ZRIHB. P12 10-NOV-77 

Pies SEBzA pppe0e 

es Bred BBR 

7785 052724 004137 057172 
? 052730 00000 

2787 052732 o00000 

7789 052734 

7790 052750 000207 


MACY11 30(1046) 


DISK SIMULATION 


NOWORD: 
Ys 


DAREAD: 
DAWORD: 


OUT: 


10-NOV-77 
.WORD 0 

“WORD Q 

OUT 

ISR R1, #REDATA 
.WORD OO 

“WORD 0 
RTS PC 


11:48 PAGE 187 


;NO OF WORDS TO BE WRITTEN 


;READ DATA ‘----------------------- 


;NO OF WORDS TO BE READ 


;EXIT 


SEG 0186 


78il 


“I 
WMMOMOOMODOWDMOMOMWWw 
TUN o = 0 0 
—-OOONMUWN £wlu 


O,RPO4’S“6 DSKLS_CTRLR2 


10-NOV-77 11:09 


MACY11 


Sle 11:48 PAGE 188 


;#THE DISK SECTOR IS DEVIDED AS FOLLOWS 


;#19 WORDS OF 
;*#THESE MAKE 


RSYNC: 14400 
RCYL: 


0 


ONE WORD 144000 


39’°BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


WORD 144000 
a". HEADER GAP AND ONE SYNC. BYTE 


Je id DATA 
OS F CC GENERATED BY DCL 
FOR DATA GAP AND TOLERANCE GAP 


SEG 0187 


0, RPO4“S6 
-Ple2 


: 


BN GEFEOLS Powe BUSot 


Reine pees Bae 


el ed ed el ed ed ed ee ee ee ee ee ee 


AA 
WW W 


ft 


& OSKLS_CTRLRe 
10-NOV-77 ‘ is 093 


WWWW) 
NNNNN 
“I 


: 


o00 20000 
rT 
& 


-_ 

V3 

be pee 
oo00 


2 
fu 
NN 
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053560 


;*#READ DISK HEADER 


NOSYNC: O 


TY: 0 
ERWORD: O 


ROHEAD: MOV CRA) # DORSETR 
MOV (RL) Bai Y 
MOV (R1)+; QBRKEY 
MOV (R1)+; J8COMPA 
MOV QsRHMR, RO 
ny Seat 
fe eta 
Bie SME TCKINCLK, wei 
BR 2s 
1S: MOV SMS TCKIMCLK! MD, 
BIC eMSTCK!MCLK, OR 
2s: MOV 
38: BIS ener, JRO 
BIC #MCLK’ aRO 
ce 
Bre t«iRkE 
BNE 1§ 
MOV #18. Re 
4: CLR aeWORD 
JSR PC, J#RER’ 
DEC Re 
BNE 4 
MOV DBRSYNC , IBWORD 
JSR PC, J#READ 
Bir aotsy, aRO 
MOV #1, J#ERWOR 
MOV DBRSYNC, a8 
MOV w1Q4O0e, aSSYN 
BR 
Ss: MOV QsRCYL, @BWORD 


PC, JHREAD 


EOS 


;FORCED HEADER ERROR = - 
AL = 0 


; NORM 
: ERROR TYP NO. 
;ERROR WORD NO. 


YLINDER ADDRESS 


TOR AND TRACK ADDRESS 


° 
<<or 
~~ 


OR NOT 


NS MAINTANENCE REG. 
ano FOR WORDS 


CLOCK _FOR FIRST WORD 
-CLOCK FOR FIRST WORD 


3 S558 


i Spon 
a8 On 


SE 
“ARON ON’T GIVE CTOR CLOCK FIRST TIME 

0;SET T CLOCK, DIAG. MODE, RESET INDEX 
;RESET SECTOR & MAINT. CLOCK 


sEORO BYT he vg 
T MAINT. CLOCK 


3 COUNTER 
BYTE NOT COMPLETE 


;CONTI 
Hoe COUNTER 
; CONTI IF WORD NOT COMPLETE 


;LOAD,NO OF WORDS OF ZEROS 


;D0 

3READ 0°§ <(------------------- A 
;COUNT DOWN WORDS 

; CONTINUE 

; SYNC 

sREAD IT <--------------------- ° 


DETECTED? 


AD IT < 
sane BYT 
F -— DETECTED 


As a one 2” IN SSYN 


eeeeeeeooooooeeoeo$-) 


ee AD CYLINDER 
READ IT 


SEQ 9188 


CZRIHBO, RPOY/S - CTRLR MACY11 30( NOV-77 11:48 PAGE 190 
Cc ith 18- Nove E> 11:0 DISK RK SIMULATION SES 0169 


JHB.Pie2 

78 3737 0S3S60 MOV BRSETR, J#WORD T CTOR/ TRACK 
5829 Beaeie Bo4737 esceq Ten ais TEEN VEEN Geese oeictemetnionened 
2880 16 013737 Be 053560 nov cc gworo Reb. Kev. a Pee 2 
Sos ee eee eae : 
7884 3737 4550 053560 MOV a GueRCe Tone Set CRC 
588s Rad B4a533 3564 JSR Be SEREAD :R IT (---------------------- > 
5887 053254 7 7 015144 Ist auresore ids alttiS A, oR VE_ TIMING ERROR ” 
7889 053262 005737 oS3S62 TST asCOMPA THIS A READ OR WRITE COMMAND ? 
7890 053266 001472 BEG 11§ iB READ TF ep 
rege ; *CONTINUE WITH DIAGNOSTIC WRITE COMMAND 

7894 053270 012705 os4sse MOV SHEGAP, RS ;POINTER FOR HEADER GAP 

789S 053274 Ole702 900005 MOV #5, Re :NO OF WORDS OF ZEROS 

7896 053300 012737 06 052770 6S: MOV a6, + SHERWORD ; ERROR NO SET 

oeag besate 5 uoLS 12h SC UMORD. TO ee OEE LORD 

5899 oes 00 413 on BEG 7s nual HGBRD "NO RoR THAT IS = 0 
7901 3 16297 1124 CL A tastethg $000 SHOULD BE 0 

7902 053330 013737 OS4OI4 o01126 MOV QeWWORD,SBDDAT :BAD DATA 
7903 053336 012737 104003 OS2664 MOV #104003, ;MBHEDGAP: “ERROR 2” GOES IN HEDGAP 

7308 053344 000503 BR :BRANCH OUT -------------------- > 
7908 O0S3346 013725 os4014 7$: Mov DBHWORD, (RS) + ;SAVE HEADER GAP 
? 4 
? 4334 OS4016 One es WRITE ;WRITE HEADER (DATA) GAP SYNC 
Sgi0 053362 0e3737 OS27S2 OS4OI4 CMP asaSvnc, JHWWORD 
és 

7318 §23329 B82358 052764 FE? hoeve 18 THIS FORCED HEADER | ope ore 
7914 : F Rg SHUT noSynce Ss BRANCH 

7315 : THEN. CO Cont TINUE 
sale 053376 001406 BEG 14S : RING HOS Te TRUE ERROR 
7318 053400 B31 054014 TST 9 suWORD dle.°? oie 
7 - 001124 BFR A eécopat :§9 SHOULD BE ZERO 

7921 eae Mee one * BR ; oS : 11 $580 ba H 9 TYPE ERROR 
3955 3452 8 737 4014 001 i8¢ ge i¢é: MOV GORD Kt 38008 :BA para" 
5ase pesuse piso 37 Opabes Be peseoe HOV a S03, <a 

eee Besuac BAB 45 BR sigs ;BRANCH OUT --------------------- > 
7928 OS3446 013725 os4O14 10$: MOV DBWWORD, (RS)+ ; SAVE DATA SYNC. 

33e9 OS34S2 900440 BR 13$ 3EXIT ------------------------.-- > 
pass :#READ COMMAND START FROM HERE 


7933 OS34S4 012702 o0000S 11$: MOY a5,Re2 


gen geo RPO4Y/S6 + ot, ad ee MACY11 30(1046) 10-NOV-77 11:48 PAGE 191 


H8.P 12 10-NOv- DISK SIMULATION SEO 9190 
7934 ? 3560 128: CLR WORD 
7935 pesues thats 3564 JSR PC, J#READ ;READ HEADER GAP <--------------- 
7936 053470 DEC Re !ARE S HEADER GAP ZEROS COMPLETE ” 
7937 08 72 B01 37 BNE <3 i dF NOT TINUE 
79 74 013737 oSe7S2 OS3560 MOV SRSYNC,@#WORD ;SYNC 
7939 7 053564 JSR C, J#READ ;READ HEADER (para SYNC) 
7940 737 052764 TST aehOSYNC ;FORCED SYN VNC E 
7941 1 4 BEQ 1 iF NO be, Conan CONT INUE 
7942 3514 710 001000 BIT #OTSY, RO YN 
7943 3520 OO141s BEQ 13$ IF éRO B EENEG OUT ------------) 
rae 053522 BR 17§ : IF NOT ZERO BRANCH TO ERROR 
rane os 032710 001000 i$: BIT sDTSY, aRO ;SYNC. DETECTED ” 
7347 «60S po1o11 lk BNE 13 FETT Se YES mentees > 
7948 12737 oO00006 OS2770 175: MOV #6, JBERWORD OR WORD NO. 
794g 3540. 013737 OSe7Se 001124 MOV JBRSYNC, JSSGODAT;SYNC WORD 
7950 053546 012737 104002 OSeteE MOV eTosoos SSHEDSYN: MOVE “ERROR 2” 
7951 O53554 13$: 
ogee 053556 oo9201 RTS R1 SEXIT ------------------------- ) 
7954 
795 
7956 
7957 
798 
>969 


SHssAsMIARES 


Be 


“vy 


SBEURDUERERSE SAID 


retatatatey 
0+ b= 0 be 
mu cite 


w 
oO 


& OSKLS CTRLRe 
0s 


"18-Nov-37 ll: 


000000 
000000 





;#READ ONE WORD IN “WORD” 


WORD: 0 
COMPA: O 
READ: nov RS 
Mov BAD ORO 
ROR a 
BCC 1$ 
BIS 
1$: MOV 87 
§ 3 TCKLMICLK, RO 
aeTSECCG 
9 6S 
8MRD , JRO 
BEO 
MOV 8-1, 38ECDATA 
Ss: BFR gs Ta 
6s: MOV -( SP) 
ROR ae 
Boy Sbmosong, csp 
2s Mov CaP Ds ORO 
TST eTseccc 
BEQ 
NC SHORTENY 
- SR C oe CTEST 
eis gersceta. 
Q 
T SMRD , ARO 
BEG 7$ 
MOV @-1,a8ECDATA 
at Ef 
cE BSREOETES, 
ROR aswORD 
Bcc 4§ 
MOV BRO! (SP) 
48 MOV (SP)+. JRO 
TS aTsetcc 


T 
Q 

The BHOQTENY 
™ 


9$: pet f 


DW 
uw 


MACY11 3B LONG) UL BTION -77 11:48 PAGE 192 


LE Anny SECT 
ir bENERAtE eNO” fest Ecc ? 





Pa one > 
elt 


RNG veolag IS A 
coeex ine oer « A ONE 


;KEEP DATA 


Bs ec a: erat Ok, SECTOR BIT 
Ay: Earle, FOR. DATA ENVELOPE 


iv. TO GENERATE ECC 


OOF OF ee Oe ee et eres eres es eres 


me hehe Oth I 


IS A 
c ara 817 s=0 
CHTE HO. One RE IS A ONE 


ey able a ae pa ee CLOCK 
eas BE GE 
:GO AB eceg rn gare, greor 


-BY ER 
; CONTINUE ae ONE BYTE NOT COMPLETE 


K1S 
11:48 PAGE 193 


1Q0-NOV-77 
ATION 


K SIMUL 


(1 
Is 


MACY 11 38 O46) 


ZTRIHBO, RPOY~S“& OSKLS_CTRLRe 
J 19-NOV-77 11:09 


- 
C2RIHB. P12 


;CONTINUE IF ONE WORD NOT COMPLETE 


iC 
LEXI) ----n-- nnn nn nnn enn n nanan ann) 


ane | i 


SERZ 


stetets! 
Bae 


~ 


0, RPO4/S “6 & OSKLS CTRLR MACY1L1 30(¢ O46) 1Q-NOV-77 11:48 PAGE 194 
-Ple 10-NOV-77 11:0 DISK SIMULATION SEG 0192 


;#WRITE ONE WORD WHICH COMES BACK IN “WWORD” 


qoaisas SObRRR EER RABORNDURR SS o989 S82 29 


054014 oo0000 WWORD: O 
4016 WRITE 
4026 o1 705 ooo000e nov #2, R i ee COUNTER 
eiarde S003) ss Ye bre ane. 
01271 13 MOV Pe cecioe MANT. CLOCKS 
4 : ) 000040 BIT SMR, ORO ; wie Ir INT MAINT. REG. 
Oe405s 7 177777 OSO4S6 nov 8-1, 9"ECDATA ae Sara 8 IS A ONE 
054064 ROR 3 ; f TPE ORWARD 
uO58 oso4s6 2s: ii se coata iE CC DATA BIT is=0 
uoze abe R3 i EbuE O° FOR. WWORD 
1 7 : MOV #0MO ;CLEAR TOR AND CLOCK 
Qewibe 006737 pop eed 7 ror aerstc g : THs BIT TO GENERATE ECC ? 
411 37 76 INC JeDAT : ER OF CLOCKS FOR DATA ENVELOPE 
Beutté Bga539 Bepers JSR PC, ae CYEST :GO TO GENERATE AND TEST ECC <-------- 
41 710 oo0002 4$: BIS #MCLK, RO 
186 039710 000046 BIT MWR, JRO heck aaa IN MAINT. REG. 
4134 0 if 177777 OSO4S6 ope 8-1, 98ECDATA SEY ane BATA BIT IS A ONE 
4144 OR VE 1 FOR WORD 
41 BR $ 
Wise posag7 OSO4SE Ss: CLR Stecoata ;ECC DATA BIT IS ZERO 
4154 1 CLC :CLE ARRY 
S16 BREE onnoo: ss: A Be Steet Sa,'mon? 
3% hh 4 , rst gat gece is Te THIS Bit TO GENERATE ECC ? 
417, 7 N SOATENV R KS FOR DATA ENVELOPE 
4176 Oo2 37 pe0e78 ie Reo RECTEST : NUMIBE NERA AND TEST ECC <-------- > 
4 302 7%: R i COUNT FOR BYTE END 
Oy 1346 ’ BhE a i TFN T -BYT NO CONTINUE 
OeM 1 A312 BNE is 5 GpUN NOT 7HORD ENO" NO NTINUE 
4212 033 054014 MOV , I8WWORD : STORE 
054226 07 . RTS Pc SEX] -----------~------------------- > 


CZ2RJIHBO,RPO4-S’6 DSKLS CTRLR@ MACY11 30(1046) 10-NOV-77 11:48 PAGE 195 
CZRIMB.P12 10-NOV-77 11:09 DISK SIMULATION SES 0154 


808 

BOSE 
8083 
8084 


CZRJHBO,RPOY/S/6 DSKLS CTRLR2 MACY11 30(1046) 10-NOV-77 11:48 PAGE 196 
CZRIHB. P12 10-NOV-77 11:09 DISK SIMULATION SEQ 0195 


;#WRITE DATA HOUSEKEEPING ROUTINE 


SeeeaeReaeeees 
59 
RS 
f 


Cc TQ: 0 
FORMAT: 256. 
054 000000 ZiORDS: 
4 WRDATA: 
4 11137 054230 MOV (R1),a8COUNTD ;STORE NO. OF WORDS TO BE WRITTEN 
424 121 MOV (R1)4,R 35 N 
pavers 1 053562 MOV (R1)+:38COMPA =;C OR NOT 
8100 4 12701 016 MOV #14. ,R1 :NO. OF TOLERANCE GAP WORDS 
8101 O54 o12703 574 MOV sTOLGaP, R3 :START TOLERANCE GAP TABLE 
8106 42 12723 177777 1$: MOV a-1, (R35+ :MAKE I 7 
810 42 905301 DEC Ri :IS 14% COMPLETED ? 
8108 4508 1374 BNE 1s :IF NOT, 
81 4 13700 014776 MOV SRHMR RO ;RO CONTAINS MAINTANENCE REG. 
B19? & z Deve MOV SeFORMAT, « (SP) . 
108 431 4230 SUB #COUNTD; (SP) 
8109 4316 O11 054234 MOV (SP), @8ZWORDS ;NO. OF ZERO WORDS TO BE WRITTEN 
8110 OS4322 MOV (5P)4.R4 
8111 4 7 015142 TST gaTsecc ;1S THIS AN ECC TEST 
Bile 4 403 BEQ $s ; H_ IF NO 
B11 “4 1 177777 OS0464 MOV #-1, a8TSECCG ; THESE 8 TS ARE TO GENERATE ECC 
8114 4 OS4Sb6 7S: MOV s01Sk,R >SIMULATED DISK AREA 
8115 O54 7 054016 2s: JSR PC, JSWRITE jWRITE ON SIMULATED DISK 
B116 O54 . 137 4014 HOV SatWORD, (R3)+ :ST SIMULATED DISK 
8118 Bi 137 2s 
8119 366 poe35 en f RY ; ANY ZEROS TO BE WRITTEN ? 
g120 0s4 001406 BEQ 4% ;BRANCH IF NONE TO BE WRITTEN 
81 4 737 4016 3S: JSR PC, ASWRITE ;sWRITE ZEROS ON SIMULATED DISK 
B133 ae 3 eat nov SALIHORD, (R3)+ 1 ORE +fR9 
812s i378 1 3s 
8126 35 oSO464 4S: CLR asTSECCG ;NO MORE ECC TO BE GENERATED 
8127 4404 277 2 MOV we, RI 
g1 4410 7 OBt SS: JSR P SHUR ITE ;WRIT ECCI AND ECC2 ON SIMULATED DISK 
a $3 nat 13723 4014 MOV “pen! 3)+ + SO ORE N WEEC] AND WEEC2 
B13 ete aly i 
1 44 4016 IS Be JSWRIT ;WRIT TA GAP 
Bi 137 Bey 14 MOV OSMMlORE (RS) 1 ORE ee 
134 4434 27 1 16 MOV #14. Ri 
i 4440 7 4016 6S: JSR PC, abWR E sWRITE TOLERANCE GAP ZEROS 
81 wa 3 4014 nov QALINORD , ( 3)+ 3ST THEM 
8138 OS544S2 001372 BNE 6 
8133 os 000201 RTS Rl sEXIT ---------------------------- > 


SERIES MCP BLUE RRL 77 tteMe PACE 197 


On 


tyr. 
DMODONWWDDOODDOMODODWDODDODHOMDOOOMI0RM 3B 


HEN GSBIEHEOR Someone oo BB 
> 


= bbs ae Be Oe be be be Be be Be he ae Bn ae Bs he he be ae be he fe Oe ee 


RPOY’S’6 OSKLS CTRLRE MACY11 3061046) tee 11:46 PAGE 198 
le 10-NOV-77 j1:09 DISK SIMULATION SEG 5197 
;#THIS IS THE SIMULATED DISK 


HE 
;RONLY ONE SECTOR OF SPACE IS ALLOCATED 


44 SECGAP: .BLKW 19. 3e BYTES_OF 
gets RR? cae Ce BEET BE POPES Se sme ove 
HEADER: (BLK 4 CYL, SECTOR/ TRACK, KEYI. KEY2 
1 WER “BLKW OL i ORAOE 
2 HEGEP: = <BLKW {HEADER GAP 10 BYTES OF O88 
Beyee, 00000 SILOTB: ~ ACS euSeD 1 eSILO TEST OE SIV’ TABLE) 
990400 DISK: BLK ase. TA SPACE 
055570 i ees: ete ae 
055572 1 OA ; “Btu 1 iECCe GAP 2 BYTES OF O 
OSSS74 00016 TOLGAP: (BLKW 14. TOLERANCE GAP 28 BYTES OF 0 


CZRIHBO,RPOY’S’6 DSKLS CTRLR2 MACY11 30(1046) 10-NOV-77 11:48 PAGE 199 
CZRIHB. P12 10-NOV-77 11:09 DISK SIMULATION SEG 5198 


;#WRITE HEADER AND DATA 


;*#THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
seer ts } S DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 


;#IT THEN CALLS THREE OTHER TINES, WHICH IN TURN CALL OTHER 
:#SUBROUTINES. THE THREE SUBROUTT S CALLED HERE ARE: 


S aerecn P4124 Ae Ia pet PO SECTOR FOUND FLOP 
;* WROATA ;WRITES THE ACTUAL SECTOR DATA 


;*#ALL_OF THE ABOVE MENTIONED oe IS ACTUALLY DONE INTO A CORE 
;*BUFFER AREA CALLED ’DISK’ VIA MAINTENANCE REGISTER (RHMR) 


DOWDDODDWOODWODOWDDOVDODOODDOOWOMOMW 
AANA a hg aaa 
DD ITU EU ODO TOE Oe Ose aoe 


3 


ge0e O0SS630 900000 RNCTR1: .WORD O ;’RUN’ LINE STALL COUNTER 
8204 055632 011637 015132 COMWHD: MOV (SP), asPCISR ;SAVE PC OF JSR + 4 

8205 055636 162737 O00004 015132 SUB #4, JBPCISR :SAVE PC OF JSR 

BS0e 2777 1 137110 MOV 8OMD , IRHMR sSET DI TIC MODE 

8208 13710¢ BIS SMINX, JRHMR SET Bt T c INDEX 

82039 055674 042777 137074 BIC sMINX: JRHMR :C E DI IC INDEX 

8210 055702 000001 137046 BIS 8G0, JRHCS1 ; 90° BIT & STALL ’TILL ‘RUN’ 
8211 + (FUNC TON CODE Was SET UP BY THE TEST) 
Bele 055710 012737 000113 OS5630 RNWATI: MOV 875. , J8RNCTRI ; LORD st L SOUNTE = APPROX 4SOUS 
8214 716 OOS 055630 1S: DEC JBRNCTRI + COUN “0 IME 

Beis Be 722 Boats BNE 1S :CONTINUE UNTIL = 0 

std 055724 013746 6010 MOV QeWwSEC™?,-(SP) ;GET DESIRE SECTOR/ TRACK 

Be18 2730 2716 177740 BIC 817775 (SP) > MAK. ONLY ECTOR 

B21 57 126 ose 744 MOV (SP)+, JbWTRK SA SECT 

8220 5740 0041 6716 2s: ISR R1, a#SEARCH : ISSUE SECTOR CLOCKS TO GET TO 

geel ‘DESIRED SECTOR <------------------- > 
Bees 5744 WRK: .WORD O ;SECTOR_NO. 

B24 574% 012701 gon240 MOV BeNOP 8 :GOING TO MOVE _NOPS 

Bees 5 10137 20 MOV R1, J#SEGPER :NOP INTO SEGAP 

Beet 2756 101 OS6fie2 MOV RI, af YNER :NOP INTO FSYNER 

8227 c7 101 4 MOV Rl; ae :NOP_ INTO ERHEAD 

Be2e 0557 10137 b026 MOV R1, JBERCRC *NOPINTO ERCRC 

Bee9 O55 919137 030 MOV RI, g#ERHOGE :NOP INTO ERHOGAP 

Be 30 055776 010137 6032 MOV Rl; aSHOESYN :NOP INTO HDESYN 


Onn 


panommms 2 
GROUEGIE z 


@ 
fu 
££ 
fur 


8243 
ge44 
8245 


§ 


RPOW/S 
P12 


i 


oS6020 


oS&0ee 


OSéCe4 


OS6026 


“6 ote aad pee 4 MACY11 3 


10-NOV- 
004137 056102 
000000 
000000 


o00e40 


000240 


500240 


oo0e40 


00 


SEGPER: 


FSYNER: 


ERHERD: 


ERCRC: 


£10"? 
ISK SIMULATIO 
JSR R1, J#WRHEAD ;WRITE THE HEADER <-------------~--- , 


0 
: 0 
1: O ; 
0 
0 


1 tte” 11:48 PAGE 200 


TET OREAND TRACK 
KEY 
6005 CRC 


;DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


NOP ;IF “ERROR 6” INSERTED BY 
; TINE 


Ey Reem oO 
; NQ. | CONTAINS WHICH 
iHORD Is ONG THAT IS 
:FIRST OF TENTH, OR WHAT EVER. 
;BAD WORD IS WHAT IS GOING ON DISK 
NOP ;IF “ERROR 6” RTED BY 
ee tale it 


; THE L OF SECTOR 
: OF FI YNC. BYTE 
AF ER SECTOR GAP IS IN 


Y 
; ERR 
;WORD_NO. CONTAINS 2 
;RIGHT BYTE IS SECT GAP 
;LEFT BYTE IS SYNC. BYTE. 


;BAD WORD IS WHAT IS GOING ON 
; OISK 


NOP 


CYLINDER NO 
+ lama 


KEYe 
WHAT IS GOING ON 


3 
We - 
oH 
nnn 


oO 
2» 
oo 


o@ == 
no S 
* 

= 

2 

o 

to 

w 


NOP 
IF “ERROR 6" INSERTED BY 

:WRHEAD SUBROUTINE, THEN CRC WRITTEN 

:ON DISK IS IN ERROR. 


;GQ0D DATA IS WHAT SHOULD BE ON DISK 


SEG 0199 


CZRIHBO, RPO4’S 
ESRING Pie 


83 
8310 
8311 


WWWWl 


0S6030 


OS&03e 


056034 
OS6040 
OS6042 


O46 
6050 


os60Se 
OSE0EE 


“& DSKLS 


CTRLR 


10-NOV-77 11:0 


000240 


000240 


01S124 
OS4236 


MACY11 30( 1046) 


DISK SIMULATIO 


ERHDGP: 


HDESYN: 


FNWORD: . 


FOUT: 


7 11:48 PAGE 201 


NOP 


NOP 


sERFLGS 
R1, a#URDATA 


0 
0 


PC 


;BAD DATA IS WHAT IS GOING ON DISK. 


;WORD NO IS S 


;1F chp en 6” 


E 
;WORD NO 1 = FIRST 
GOING ON DISK 


tTRHEAD SUBROUTINE THEN LAST 

i WCABER auBROUTE OR R 

:SYNC BYTE GOING ON DISK IS WRONG. 
;WORD NO = S 


;BAD DATA IS WHAT IS GOING 

;ON DISK, RIGHT BYTE IS HEADER 
;GAP O’S BYTE, LEFT BYTE IS HEADER 
GAP SYNC. 


;ARE ANY ERRORS DETECTED ” 
tIF YES BRANCH 
!WRITE THE DATA 


;FORMAT COMMAND NO. OF CATA 


sEXIT 


SEG Cece 


CZRIHBO,RPOY’S“& DSKLS _CTRLRE MACYI1 30‘ 1046) 19-Nov-77 11:48 PAGE 202 
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8328 

8329 ;#WRITE HEADER 

8330 

8331 

8332 

8333 

8334 

8335 ;#RO = MAINT.REG. 

8336 :#R1 = SIMULATED DISK 

8337 :#RO = BYTE COUNT 

8338 :#R3 = Wd 

8339 :#RS = WORD COUNT 

8240 

8341 

8342 

gaa 70 oo0000 CYL 

Baue Deeors ete SsrCiR 8 / 

8347 76 000000 eke YS 0 ; 

8348 OS6100 000000 SCRC 0 : 

3 

8351 OS6102 012137 oS6070 WRHEAD: MOV (R1)+, OHSCYL 

B35¢ 056106 S113? 056072 MOV (RL) +, Q8SSECTR 

83 056112 012137 056074 MOV (R1)+, M#SKEY1 

8354 O56116 012137 056076 MOV (Ri) +, 98SKEYe 

8355 056122 012137 056100 MOV (R1)+) aeSc 

e329 130 012701 054470 MOV sSECGAP,R1 ;SIMULATED DISK INDICATOR 

8358 pee isa 013700 014776 MOV asRHMR, RO :RO NOW HAS MAINT. REG. ADDR. 

83539 056140 012710 900001 MOV #0MD, aRO :SET DIAG. MODE 

8360 OSbia4 12705 0002 MOV RS iW COUNTER 

8361 iso 710 0010 BIS aMSTCK, JRO *SET SECTOR FOR FIRST BYTE 

836¢ 056154 Ole710 0013 18: MOV #MSTCK!MCLK!DMD, ORO; SE SECTOR, CLOCK, DIAG. 

Bea 056160 932710 000040 BIT aMWR, JRO MODE, BRITE BIT IN MAINT. REG. 

8265 056164 00140 BEQ 2s 

8366 056166 000261 SEC ;SET_ CARRY 

8367 056170 006003 ROR R23 :MOVE ONE FORWARD 

8368 056172 Ooo402 BR 33 : 

8369 056174 O00241 2s: CLC *CLEAR CARRY 

8370 176 006003 ROR R3 MOVE ZERO FORWARD 

8371 12719 000001 3S: MOV 8OMD, ARO ; CLEAR CLOCK, SECTOR 

8372 204 0127 000007 MOV 87,Re :BYTE COUNTER 

8373 O0S6210 052710 o0000e 4%: BIS aMcLK , aRO :SET BIT CLOCK 

8374 Oobe14 327 3 009046 BIT aMWR, IRO : CHECK WRITE BIT IN MAINT.REG. 

B375 140 BEG Ss :BRANCH IF ZERO 

377 OS6222 000261 SEC ;SET CARRY 

6378 OS6224 006003 ROR R23 :MOVE ONE FORWARD 

8379 26 oo0040e BR 6$ 

380 30 41 S$: CLC 

8381 0562 006003 ROR R3 

8382 0S 012710 oo0001 6$: MOV #DMD, JRO 

8383 956240 005302 DEC R2 


CZ7RJHBO,RPO4’S’6 OSKLS CTRLR2 
10-NOV-77 11:09 


CZRIHB. 


2 bat bb bs bo be ho be 
WO NOUS Wt 


PEPEPEELEPE Le 
rs} 


Pree 
NER PORE 


8 


TITTeee 
bo 


Pie 


012702 
015799 
004737 
ba3281 


00i4ie 


O0iS144 


OS4016 


MACY11 30(1046) 


052770 
001124 
056022 


0S2770 


10-NOV-77 11:48 PAGE 203 


DISK SIMULATION 


11$: 


12$: 
13$: 


BNE 4g 
EC R 

BNE 1 

MOV R3, (R1)+ 
1ST R 

BEQ ? 

MoV #1, J8ERWORD 
CLR #SGODDAT 


Sov RS SeSeDDAT 
MOV #14006, JSSEGPER 
IMP 5BRANCH QUT ----------------------- : 


MOV 518. Re ;COUNT NO. OF SECTOR GAP 
MOV t) QBERWORD ;COUNT TO GIVE ERROR WORD 


Ov SwinORD, (i+ Sone SEE TOR Gap WORD 


BEQ 

ave At alee F yl T ERROR WORD NO. 

MOV 

av i "ges Tore anon 6" IN SEGPER 

BEC S AAVE. ie CHORDS OF ZEROS BEEN WRITTEN ” 
BNE Re ;IF NOT CONTINUE 


‘BE Hi Mt A, ie 0 THAT FHE HEADER SYNC B BY Poe AN BE GIVEN. 


HOWEVER, 2 IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 


TST DseTESDTE ;IS THIS A DRIVE TIMING ERROR TEST ? 
BNE 178 ;BRANCH OUT IF YES ------------------- > 


HAND ONE SYNC. BYTE = 230. 


JSR PC, daWwRITE 


MOV AV YTE ee YNC BYTE 
CMP SaRSyNe; CR (RL )+ 4 PVE vAC® BYTE RIGHT 
BEQ ;IF YES GontINUE OPERA 


TION 
MOV 450. ,98ERWORD ;IF NOT GET READY FOR ERROR PRINT 


Hoy ns .. R or F R HEAD R TABLE 
MOV a8, gee FioRD POINT HoRD No noe 
day SGLMIORD. «AL ) :MRTTE WRITS BOER anos 
4 
CMP (R3)+, (R1)+ 15 + Rit LEY 
BEQ 14$ > boop CONTINUE OPERA 


TION 
iF NOT GET READY FOR ERROR PRINT 


SEG Cede 


ZTRIHBO, RPOY/S “6 DSKLS CTRLRe 
ZRIHS.P12 10-NOV-77 11:09 
8440 056472 37 2770 
8441 476 bi4 37 1124 
is eeese Bisher Tbiase 
43 Geese b04 

844S 

gy 

ants Osese5 a 4016 
8449 056 13711 peugis 
8450 0565 0221 056016 
8451 056536 001414 

g45e 

8453 

8454 OS6S4O 014137 001126 
gee Betest bizar soaps 
Byes Beeees 13737 SRNODE 
Bu58 056566 000450 

8460 056570 012702 ooo00s 
8461 056574 012737 O00006 
Bube OS6602 004737 OS4OI6 
8464 OSe&12 Baiate wigs ih 
8465 

Bes 056614 0237 770 
C468 Deeeso b8e635 Sai ios 
gies Beers Bias Toudee 
B471 056636 bo0434 

8473 OS664O 005302 

8474 056642 001354 

8475 OSbb44 737 4016 
B476 SO 013711 4014 
8477 056654 023721 2752 
B478 056660 001413 

£480 012737 coooos 
8481 056670 014137 OO0ll2e6 
8482 056674 013737 952752 
e483 056702 012737 104006 
8485 056710 

8486 OS6712 o0020! 

6487 

6488 

BYES 

£490 

B49) 

e4Se 

£493 


MACY11 30( 


oS60e4 


001124 


056030 


05277 


001124 
0S6032 


1 
DIS 


O04 
K 


14S: 


20s: 


16$: 


; IF NO 


6) 10-NOV-77 11:48 PAGE 204 
SIMULATION 
SuB R2, a#ERWORD 
HOV = (RS d, gsscboat 
MOV #1040 4006, wSeeRHEAD: 
5 1 
DEC R 
BNE Ss 
HOV SGMORD CAL) 
CMP (Ri Seo Recne 
BEO 20$ 
MOV -(R1),a8 TA 
mov aaccre asSGDDAT 
MOV Het MO RERCRC 
BR 178 
MOV #S,Re 
MOR | OPC’ OBHRITES 
MOV DSORD. (RL) 
BEQ 16S 
S R2, J#ERWORD 
a a est0pa" 
MOV -(R1} ORSBDOAT 
MOV #104006, aBERHDGP 
BR 
DEC R 
BNE res 
JSR PC, DeWRITE 
MOV DBUWORD, (RI) 
CMP QSRSYNC, (R1)+ 
BEG 178 
MOV 8S, JBERWORD 
MOV -(R1), a8$800AT 
MOV aeRSYAC , JBSGODAT 
MOV #1040N6; JBHDESYN 
RTS RI 


wee enn www oo oo ow ow oe ee) 


1 eotInee DONE? 


000 CRC 
ONTINUE OPERATION 
T READY FOR ERROR PRINT 


1 EON 


T GET REACY FOR ERROF PRINT 


SEG C203 


Om 


mawuoom 22 


BRR 
GBURREEREESOIER Be 


ftreepreser see: 
WO NOUS Wwte-O 


si 


8Se7 


SeURHDRC Re 


CRUAUR MAUNA 
ODER Foto 


un 


REOY/S-& DSKLS_CTRLRE 
) 711:09 


mi 





MACTil hg a 11:46 PAGE 205 


;#SEQRCH SECTOR 


BO BREDA CTOR SEARCHED FOR) 

; Berane a 

v8 fee PER WORD . 

: SBEF ORE INDEX Is GIVEN TWO_SECTOR CLOCKS ARE GIVEN TO RESET 
a A TN ll eS 
: ne! CTOR Lee oe NUMBERES FOLLOWS: 

a) CLOCK UNDER INDEX - 0 


xT - 


‘St 
pat 


ci ce OCK IN ONE SECTOR HAS NUMBER - 608 


putea s 
TRE TgSh Besar HGR PREC SAPRLENPOSS SEETOR ccs 





SECTR: 0 ;SECTOR SEARCHED FOR 
SEARCH: MOV (R1)+,a8SECTR ;SA cTOR. SEARCHED FOR 
MCV ‘ aS MAINTENG NANCE REG. ADR. 
MOV @SECTA,R :LOAO CT3R Cc 
MOV aro T TIC MODE 
BIS spore Ser a ae 
Bi aMSTCK’ g. Sth 
S TCK: ‘cet 
BIC TCk: pies a: ; 
; Wo Tor CLOCKS ARE GIVEN FOR 
;RE NG SEC 
3 IN i aie um 
BIS SmI EST CK. : men Se 
Bre at NX! MSTCK if ak heed ot bcx 
BEG 7 31 IS REQUIRED, EXIT ------> 


;NOW 304 WORDS WILL START (608 BYTES) 


;#FOR FIRST Cone Bown MAINT. SECTOR CLOCK WILL GO HIGH, THEN MAINT. CLOCK WILL GO HIGH 
:sBOTH WILL CO eer ee HEN SEVEN MAINT. CLOCKS WILL BE GIVEN 
SECOND BYT ALL OTMER BYTES TILL NEXT SECTOR, SECTOR CLOCK 


OQ 





ZRIHBO, RPO /S6 & DSKLS CTRLRE MACY 11 30‘ 1046) 19-Nov-77 11:48 PAGE 206 
SRIHB.P12 10-NOV-77 1 1Sk SIMULAT 
eee} ;#WILL BE IDENTICAL WITH ONE MAINT. CLOCK 
Boos ;ONE WORD ONLY 
8556 057006 18 MOV 88., Re :BYT COUNTER 
e588 oot Bre eer a 3 tt T Sector cL LOCK 
8sS Bie K, intr 
8560 BR ; H TO cLERR SECTOR AND CLOCK 
856 23 BIS TCK! :SET BOTH CLOCKS 
3$ BIC Tekin =e TH LOCKS 
8g K,aR : MAIN LOCK 
B564 ~ BIC act LK; aR ~ AR AAINTS LOCK 
ee inf Sae TF 
8566 BNE AS ONTI IF BYTE NOT COMPLETE 
4 702 000007 MOV 87,R2 ;SETUP FOR BYTE 
gees BesReq precse DEC RS $f WORD COMPLETE? 
8570 OS7062e 001362 BNE 2s i CONTINUE if NOT COMPLET 2 
8571 :TO GI CTOR CLOCK MAINT. CLOCK 
8573 
Bers ;NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 
8576 0S7064 012701 000457 MOV #303., R1 ;WORDS PER SECTOR COUNTER 
Qs 057070 0127 4s: MOV oR ;BYTES PER WORD COUNTER 
8578 057074 0127 Ss: MOV i TER (MAINT. CLOCK COUNTER) 
8s 057100 05271 le BIS #7,8 K!MCLK,@RO ; OR CLOCK K AND MAINT. CLOCK 
8580 057104 8710 le BIC aMSTCKIMCLK’ JRO ;CLEAR 
8581 7110 71 2 éS: BIS @MCLK, JRO ;SET_MA K 
8582 057114 710 oo0000e BIC #MCLK; JRO ?RESET nari ot Ock 
8583 057120 302 EC Re iS YTE C ? 
8584 O057l2ee 001372 BNE 6$ : CONT INUE meet E OMPLETE 
BeBe 71 EC aS :1 Cc TE ? 
Bee a4 525182 BOT See OfE it 4 t aT TNE : oF Ket 
Bees BS 71 005301 R 18 CTOR COMPLETE ? 
8530 §25138 001356 eg Gé BNF NUE IF NOT 
Be3e 057134 0S2710 oo00010 BIS sMSTCK, JRO SET aBESTOR, CLOCK 1 MORE TIME (FOR 609) 
§3 057140 042710 900010 BIC #MSTCK’ JRO :CLERR SECTO! 
8594 057144 005303 DEC R3 iT REQUIRED NS No OF SECTORS COMPLETE ? 
8535 7146 00131 BNE 1§ : CONT INU 
8597 057150 7S: 
8598 0571645 o00e201 RTS RI 
8599 
8600 
1 ;#READ ONE SECTOR OF DATA 
8603 057166 o00000 RNO: 0 ;NO. OF WORDS READ 
057170 0000 RCOM: 0 ‘EXTRA STORAGE 


tut 
Ring 


ESRIMB Pie. 1BeNOvee? Licog | RCYAE SBEAONBIMULATION . 11t46 PAGE 207 ‘Bo 206 


8607 
8608 057172 057166 REDATA: MOV (R1)+, IB8RNO ;SAVE NO. OF WORDS ONLY FOR INFORMATION 
8609 7176 957179 MOV (Ri) guRcOm :EXTRA WORD Y FOR INFORMATION 
Bei g ° 1514 rot os set :1S THI Ranch TF No TEST 
661 7 ie 77777 + =OSO464 MOV #-1, J8TSECCG TS ARE TO GENERATE ECC 
8613 72 boos02 1$: MOV 5268" R R2 a PER SECTOR 
iS ? 4 MOV sOISK,R3 ;POIN I ATION 
Bele pe7850 53860 2s: HOV Ko aaworo [a 110) PP law TENT 
8617 057234 3564 JSR 
B618 7 DEC ; $ 256 heaps DONE ? 
861 7242 BNE BRANCH 
B20 3 o1si4e rst SaTSECC :1S THIS ont N ECC TEST 
8622 057 64 CLR asTSECCG ;NO ORE a is BITS ARE TO BE GENERATED 
8623 057 17 MOV #15. ,Re [ONE DATA GAP, 14 TOLE GAP 
8624 057262 053560 3S: MOV (R3)+, d#WORD i READY TO READ CONTENTS OF WORD 
8625 7 053564 JSR PC, a#READ 
Beeb 7 DEC Re : COUNT 
8627 057274 BNE 3$ :BRANCH IF 14 NOT DONE 
8628 057276 48: 
8629 057300 RTS Rl ; RETURN 





CZRIHBO,RPOY/S’“& OSKLS CTRLR2 MACYLI 30(104%6) 10-NOV-77 11:48 PAGE 208 
CZRIHB. P12 10-NOV-77 11:09 DISK SIMULATION SEG 0207 
8630 057302 RPVECT: 
8631 057356 TYPOC ; TYPE ER FROM PC 
3g 8 is707 057302 135356 MOV #RPVECT, ARPVEC tRESTORE TRAP RPOY VECTOR 
3 ope HALT ‘CHANGE TO CONTINUE 


8634 


“$6 DSKLS CTRLRe 
10-NOV-77 11:09 


MACY11 30( 1046) 


10-NOV-77 11:48 PAGE 209 


-SBTTL 
SBTTL ###SYSMAC LIBRARY ROUTINES##« 
- SBTTL 


SEG 0208 


ESRIMB-Ple 1B-NOv=P7 diz08 | PY) SPH OReur Routing 11788 PAGE 210 SEG 0209 


8641 ;FROM THE TTY 


C2RJHBO,RPO4’S’6 DSKLS CTRLRE MACYI1 a byt 10-NOV-77 11:48 PAGE 211 


CZRIHB.P12 10-NOV-77 11:05 OWER DOWN AND UP ROUTINES SEG 0210 
8642 
8643 000001 . END 


ZRJHBO, RPOY/S 6 sme Bad bogs MACY11 30(1046) hm a 11:48 PAGE 213 


Cc 
CZRIHB.Pl2e 10-NOV- 11:0 CROSS REFERENCE TABLE -- USER SYMBOLS SEG Cell 
L 4328 
acu m4 teeied Sizes 
000204 4agg 73 
ADTIMO 74 c3e0 998 
AOE s 7350 23018 
RS 1886S eas 25108 3985 3397 41S3% 4164 4283 4293 
aTga = é eeBoe 982 4150 4280 
ATABLE 1 eb108 Sl 
ATTENT Osis eae 8 2813" 2eesix 3398S 4153 4283 
aTo = 1 8 
ats = 00000e § oe 
= 
ars = 10 e3ebs 
aT4Y = 000020 e3e78 
aTs = 000040 sasee 
ars = Bene 53508 
= 
Alb = 0004 ecb4s 3844 
or = me conee Se 7ex 4138% 4143" 4269% 42738 
Bar. 7 2o0ui eC 
BEGIN pS 356 493 opeae 7598 g64e2 
Be eine 017346 Pos 4 eehee 
Bits = aaaae 4878 6 7015S 7017 
BITOO = OOO0001 4878 
Bios = BONO. pe th 
BITOY = 4878 
B110s = 900095 ere 
Biite = Sees Se own 
= 
gt TS = 901000 4678 8641 8642 
BIT1l = 4878 6934 
BIT10O = 4878 Bb4e 
BITi) = Qov00D igre Bes 
IT13 = 4878 7010 70ie 864e 
itig : p14 £385 e834 6996 70cCS 7007 
cis : Beate oF 
= 
Bi1s = 90009 ere 
cig 2 Bee a 
Te = 4878 
Bt? * peers Sebi 6589 
Bie Dieebe pee; Gees esas 
BPTVYEC= 000014 487% 
CA 01iS044 esS08e 


CZRJHBO,RPOY/S’“& OSKLS CTRL MACY11 30(1046) 10-NOV-77 11:48 PAGE 214 
CSRINB. Pie 18-Nove?7 11:0 CROSS REFERENCE TABLE -- USER SYMBOLS 


cc 
CHECKD= 1044 


14 Bb4eR 
CHECKE 046210 436 sah. 4708 4863 502s S1S2 5310 5460 S624 S741 5892 6043 
CHECKT 046020 $345 8256 4062. 4214 4427 4S2 4665 4824 4977 Slee S267 Supe 
7le | 6004 - 6157 6322 667e8 6855S 6936 7083 BENE 
CKSWR = 104407 ty 4Ou 
CLAREA S702 1 & 4S63 1S8 5165 747 S754 65248 
CLOISK O4S764 281 40S4 4206 431 447) 4653 
ezine 2 S 4 5992 6146 6231 641 6440 
CLR = goong040 e418 3 110 46 31 3268 
ee oe fe Be 2 ue ue ue HE Ri 
385 7 94 rat 744 777 6659 
COMHD O0S2510 eae 23 . r y 4979 270 S4e4 SS77 s58s2 6007 6159 
COMPAR 053562 7840% #$=7889 73678 # 8099# 
COMPAR O46660 ps y 20 4298 dae 4574 4729 4888 5051 5176 5328 
S64 S76 Ss 32 6 68728 7120 7146 
0SS632 2 4Yy 128 5718 82048 
COUNTD 054230 r * 61 
CPHALT 005123 1i638 4214 4427 4432 4521 4551 466S 4708 4824 
4g } Sli 7 S422 S460 SS74 S624 S7le S741 
* s8ge 61 6 6372 6855 6936 7083 
cR = 000015 4878 8641 
CRC 047172 3834 4048 437 4410 4500 YEYY 4794 4949 S101 S246 
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66 6703 «6708 ~=Ssi74S—Ss«é SD 

Roce SUE tf 

bie” = OL 3 yi4g 4278 
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N36 36378 
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OF 78 
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RHCA 14 ze 7% 4O61# 4213% 4423 Pe oe 4663% 4822% 4976% 5127% #S2e6S* 4YOLs 
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RHCS2 014754 Sa 8 * Ea ee 304S* 3065* 3089* 3110% 3146% 3184 
31% * 4 33008 3353" 3393% 344S* 3473% 3493% 3496 
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a4 4 ry 
T 1$1 9 * 
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ae 1 rm) 3979 4086 4147 4238 4275 
SCOP1 = I54413 Yes 
SCRC 100 88 Se 
SCYL 48 351 8432 
aki = } 
iG s C 
26S = poSS00 S3e 38 
= 
SEARCH DEEP TE $380" oz15 ® 
Zecear | peaGeD “35a Gan (tiéSDCCOR gisee 9357 
SECOTR O0S26S2 * Py % 4 # Wy % 4788 4789% 4943 4YO44s Se40* S241 5387 S388 
* at x * Ss * S963 6lel*# 6122 6287 6288 6832 6833 6911+ 
691le# 3% 4% le 77258 
SECTR 714 r x 8S31 
SEECOM 1 8 9 
SELECT ts 1 : S230s o3* 2807 2822 6470 
SELTST e742 F os 
SERCH 01S16e 748 
TCK ry 
TC 4 
TCKS O32554 42378 
SETOSK O47446 7036 
SILOTB OS4S66 6164s 
SKEYe © DEEOTE Bouse | Baeas 
= = 040000 suave 
SNO1 eb418 
SRO = 1 72 & 
SRl = ee ry 
SRe = 177576 r] 
SR3 = 172516 S098 
SSECTR 056072 83458 8352 
SSYN 77 77348 7873% 
ssl y 8 38} 
S10 4 43918 4393 4YS3* 
SSle 43318 44068 4454# 
3213 340 4332% 44078 44SS# 
S14 46 4333% 44088 4456# 
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$Se 3572 44S98 
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ss4 033166 uy 4 uy ry 44YSO#" 
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= 
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SwOs = 000400 4878 
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SW1 = 900002 4878 
suit a ee 
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eis = yee 4878 2644 
SW13 = 020000 4878 2671 272i 2740 
suid: Toate ert 
= 
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SW3 = 000010 4878 
SW4 = 000020 4878 ‘ 
Sws = 000040 4878 
SWE = 000100 4878 7446 
SW7 = ase 
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ae = 001000 4878 os 
2t3 eseey Soe 3560 
Fae 0 crue : 3333. 44C9ex 
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= 
TEae rt} ma ee ne 3924 4077# 4229 6547%# 7887 8416 8641 
TIMNCN 34 64 64 67658 6775 6781 
TIMOT = Bsebe 297. 2974s 2989* 3159 3160 3170 
TKVEC = 4878 8641 
MPI OR2h 0 48a 3839% 3859 3865S 
TOL SS74 1 $101 81698 
TPve m S136 ae . 733% 2735% 3186 3202 3237 3622 
TRAPVE= 34 4878 625% 
TRE = oug009 s5oge S265 3605 3620 3632 3979 4147 4275 
TRK 2 7144 77178 
TRK1 = OO4000 3638 
TRK1O = 0000 3668 
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20 = 100000 3678 
TRKY = 020000 365 
021316 2684s 
TRTVEC= 000014 878 
TSE 015142 essOe 44YeOe Yee4# 4774 +4929% S081% Seebe 5373% SSe4* S671* S808* S948"  6107% 
6e73% § 39% git B18 8620 Seike 
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TSTNM 017330 iB 1865 1867 1870 1873 1876 1878 1881 1885 1888 1890 1892 8 
1898 1901 1905S 1908 1345 1915 1918 1921 1924 1928 2207 22093 2211 
eS37# 8 e658%  e2694# 707% s? S535 e9s6* e969% 3005* 3022 304S* 3065*  3089* 
3110% 3146# 164s 31* 2 300 3353% 2393% 344S* 34738 3493%  3514# 39% 
3565*  3591# 1S# 646% 3668% 3694* 3718% 3744# 3777% %3806*  3814# 4#  4039% 
4191# 4318% 44471" 4S99% 4748e 44904 SO7ex Se0i* S347% S499 S66ee S784*#  S92e3# 
608e#  62e48# puist 6438*% 6526 
TSTl 021034 2649 ebS7e 649 
TST10 §©Oe4O46 e3S68 
TST11 O2410e 23698 
teria 300 3018" eee 
ia Ge RP eae 
TST1S) §=©Oe4474 3061 30658 
TST16 © Oe4S76 g0R? 30898 
TST17 Q24674 106 31108 
TSTe 021372 26938 
TSTeO Oe4776 3130 31468 
TSTel OQeSl2e gigie 
tates 25 35328 
TSTe 025734 3258 e688 
TSTe4 4 3291 33008 
TSTeS OebeS4 3319 33538 
TSTe® §866026414 3375 33938 
TSTe? Oe6bS66 3421 34458 
TST3 0214S0 2694 27078 
TST30 026676 ale 
TST31 3 Sf aie 34938 
TST3e 104 493 350 35148 
TST33 Qe7e20 3514 3531 35398 
TST34 Oe73e4 3557 356S8 
TST3S 027430 3583 35918 
ST 027544 3734 3608 36158 
TST37 O27670 36 3636 36468 
ST4 021522 e7le 718% 
ST4O AG 3662 68s 
TST41 74 3684 S48 
TST4e  O30e02 3712 37188 
TST43 Ranole 37338 
ST 46 777% 
fei sii, sm 
Tera? 30 614 3859 3880 38838 
see esile 6478 6488 
031646 3 038s 
TSTS1  O3e372 4092 41908 
Ss 03303e 42e43 43178 
TSTS3 33606 4431 4461 44696 


FOe 
SSRIS S/S ABLE, TINER "PM POLY der RY Fh bt ER 


H8.P12  — 10-NOV- :0 SS REF 
TSTS4 4$37 4580 4S978 
Hie rcs oye a 
T res 4995 ope? co7o8 
TST6 4 % 
TST60 4 1 182 51998 
Sf a 
TST 3 
TST64 oie 4 3 é 38 
ee fee BCS 
i fee 86 fie LE 
Hive Ges ERE BREE” puree 
i © 3 os Pe 
TT = 707 ® 29038 29568 29698 30058  302e8 S 30658 =) 
Pg int i: Ges il gat Bet Se Pe pt ee BR Eat ee 
Saige at 45998 47488 4904s 50728 Se0is S3478 S499 S662e8 S784e  S92e38 
gege 64138 64388 
Ty” O5e%be 5aa08 
= 467 47) 497 86428 
TYPES s 1bador 5038 £38 40 gen8 Be9 Bea8 3 86 535 2746 2787 2789 2791 
Spee ess4 681 2883 288 e8gss 898 3196 3843 3908 4062 4214 
4Se eae ee8e 47 4824 486 4977 $025 Slee 51Se 5267 
SYe. ea60 5574 S624 $71 Pod 584 2 4 6043 6157 6205 
a a a a nS 
TYPOC = 104402 26 27930 28S4 6Se7 6S29 7$75 7589 7893 7S95 7897 8631 864! 
TYPON = 1O44O4 864es 
TYPOS = 104403 86428 
el Se ORs, 
UNIT 0151 ® 1# a e0s* 2817 2834* 2836 28Se 6464 6482 6487# 6660 
Bit, Beis fe ee 
UNITSL 015122 s * 2808 
UNLOAD 01515e § ‘e 
UNS = 
UPE 47 3$54 3899 
eit 6 Bet ds Be Ee ol BR OTE OTe Ge 
= é ¢ ad 
US4Y == 55308 17 352] 3273 3277 3288 3873 3580 3782 3786 3798 
UWR = 9000010 24308 
Ull 025476 187 319768 
YUF_ = 00000e e3s 
¥U30 = 010000 23838 
vv 000100 esege 2920 6699 
Wat "= 1oMMi8 Beues 
We b1sas4 hd e498e 3914 3977% 4019 4068 4137# 41l4ee 4171 4220 4268* Ye7ee 
WOE = 040000 ecSO0s 
WCF = OO0O0040 22978 


SEG Cees 


4299 


S248 


SO9S* 
5983# 


7884 


5233* 


CZRIHBO,RPO4’S’6 OSKLS CTRLR MACY11 30(1046) “NOV-77 11:48 P 2 
cSRyne Pie 18-NOV=37 11:0 CROSS REFERENCE TABLE -- USER VABOLS 
WCRC os4sso0 3 4 4646 4796 4951 
} Mh 2 MR Mt. 
wCU = O00001 23718 
Pe Se gr a ins 
et 5, im. HS, Be. Bo. pas 
WK v2 0S6014 4198% 4408% 44988 208 * aoe 5355 
WLE = 004000 3038 
WORD 0S3S60 *  7867% 7876% 7878% 7880# 7882% 
B616# 86c4# 
CHDR 047022 9108 
WRCHOT 015166 768 5 
WRCHEK 01516 es7Se 6936 
046S10 8318 
WRDATA OS4236 80 80968 8321 
01Se20 25938 4 e3933* 2 9 3393 3997%# 
4346 4372 43 3 441 4435 4507 
5108 $31 $329 S460 S476# 
6043 6205 beel*#  62e3% 623 
WRHEAD 056102 8 'y 
WRIDAT 015170 S778 
WRIFOR 015172 a 4214 4419 4S2e 3153 3733 
WRITE OS4O16 4 80378 8115 lee 128 
WRL = 004000 2 
WRU = 00 23798 
WSECTR 10 4196% 44406% 44496% S097# 5687# 8217 
WSSYNC OS4S36 81598 
WSU = 23738 
WTRK OSS744 8219% 82238 
WWORD OS4014 7898 7 ee e318 gate fa Fs 
K OS2660 gazee * 4OW7# neue G733« 4S4B* 
6837% 916% 7094* 7111 77288 7772 
aT 022264 5133 7 : 
Y 0Se7e20 es 
Y1l 0eS17e 3192 31958 
ZCODE 1924 4487# e7k5 4781% 4936% SO088# 
6280* 73318 10* 
ZER = 00 e3188 7519 
ZWORDS O54234 809Ss 8109# 
SAUTOB 34 aie e643% 8641 
SBDADR O001lee2 gsare 2528, 1873 1895 1928 6681# 
SBDDAT 001126 Bite 86. 1867 873 1878 1890 
2 ab 16# 3918 038* 6% 
3478" ifs 14" t?, 483% ia ds 
ee. Sui Be Bh: Bat Be 
Bo: Bi Ret all BB. 
a 7194* 7196 7257 7258 7390e% 


SPELL OCOlelé Sills 864i 8642 


$395 


5102 
81678 


7934% 


S380 


SS46 


S6es* 


7938 


8077 
SS43* 


SS31* 


5830 


S692 


739668 


8116 
S827# 


S678 


5970 


8234s 


7975 


8123 
S967* 


581S* 


6129 


7988 


8129 
6126# 


S9SS# 


SEG 0226 
6295S 


goos+# 


8462 


8133 
6292 


5114s 


CZRJHBO,RPO4’S’6 DSKLS CTRLRE MACYI1 30( 1046) 
10-NOV-77 11:09 


CZRIHB.P12 


pensnneene 
Bas 


| ee 
FAO 
ee 
— 
~~ 


| ol aul 
eR 
= 
o 


B88sesRs BR 


41a 


Ps fo be bo Be Pe Be Be Be Be Be 
Seeaeesecaeaenckenaa 


RukRrununndn0 


Y hla t at eetetetas 


rm 


Snnaaee ren ges 


Hee 


N 
- 
is 


ae 


o 
£ 


eee tO ts tt) 
x 


eT TUN Ne 


Re 


@wo 
roo 
titer 
reer 


864e 
26eS 


6530 


10-NOV-77 


8641 


64978 


8642 


6536 
8641+# 
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1908 
3095 


S44b 
geass 


79228 


1888 
1928 


6597 
8392* 


1890 
2207 


SEG 0227 


8426# 


102 


CZRIHBO,RPO4’S“& OSKLS CTRLR MACY11 30( 1046) -NOV-77. 11:48 PAGE 230 
CZRIHB.P12 1B-hovee? Hens Reded®, REFERENCE TABLE -- USER E VABOLS SEQ S2ce 
00 


4 
8 7078 7188 1s 6 9028 29568 29698 30058 30228 3045s 3065s 
cost Git Gate Sut ORL RE GRE He Hee aE ite 
‘ a8 


r 
ie ae 1Se 468 Se 36948 e 37448 777% 38068 38le8 3883s 
® 41908 43178 446Se 45978 47468 49028 s 51998 34Se 54978 S6ECe 5783s 
SSee8 le 6e%68 64128 64378 # £64618 
SOCNT O62 BEY4e RE 
354 Bb4e aR 
SOVE 4y 86418 
$Pass 1100 Sills 3189 6473# 6475 6497# 8641 
SPOWER 86428 
SPWRAD O& B42 8 
SPWRON BEYeR 
0626) 864e8 
864e8 
SQUE leee Slie B6641 8642 
SROCHR 061176 86418 S 
SRDDEC= x#eeee LU BEYe 
SROLIN 061266 86418 8642 
SRDOCT pera B64eR 
SRDSZ = ll 86418 
SREGAD 001160 Slis 
SREGO gt 162 Sils 
SREGI 1164 Slis 
SREG2 001166 Slis 
SREG3 001170 Sills 
pecs eles att 
SRE RRD 044660 Baars 
SR2A = #eeeeE 8642 
SSAVRE= ##eee2 LU gous 
SSAVRE 16 BEN2 te 
SSCOPE 370 86418 
as 117 sess e625 2643 6497 8641 gb4e 
= 
SSTUP = 177777 & 
SSVL OS7616 41s 
$SYPC = 000200 489% 
= 187770 4678 4@s S11 2657 2693 2707 2718 2892 2902 2956  ] 
3005 3066 4S 5 3089 3110 3146 3184 3231 3268 3300 3353 3393 
3 ry] 9 S14 3539 3565 3$91 3615 3646 3668 3694 718 3744 
77 381 3883 4038 4190 4317 4469 4557 4746 4902 5070 $199 
oococe “25 Ra S660 S783 5922 6081 6246 6412 64337 6461 6497 8641 8642 
STIMES OOl2le Sills *  2657% it 707% 718% 2811% 2969 oos* 3022% 304S# 3065* 3089+ 
3110 146% 3184 31# 2b8* Ox 3353 33938 344S# 34738 =%3493% 3514 3539% 
Ke 1146 T. ot 361S*# 3646# 3668% 3694* 3716% 3744  $=%37778 #=‘%G4bl*# 6497# B8641# 
KCNT 8641 8% 
STKINT 2630 2719 7576 e6418 
K j= 86418 
$TkGou Bedise 
erKe rete setts 3838 3839 Bb41# 
4 
STKSRY O604I1E 8641s 


CZRIHBO,RPO4/S“& DSKLS CTRLR@ MACYI1 30(1046) 10-NOV-77 11:48 PAGE 231 


CZRIHB.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0229 
STMPO) 8 ©001176 ls 87 762% 763% 73% 31S9* 3170 3214* 32484 3281% 34S4*# 3464 
37bes 725% 5738 s7e08 5370 932% 3933 408S* 4086 4237% 4238 6771# 2797 
6 6786 6876* 68 6974# 020% 
STMP1 061200 auh® 1876 1878 1892 2669% 64el* 6422% 6446% 64478 6772# 6777 6782 6877 
sTmPe 001202 lie 1 6775* 6779% 6781% 6784% 6976% 7018% 
STMP3 001204 lls 187 892 6769% 6770% 6975 6977 6978* 
Stnps boisie lis B49 : 38 28 20838 7162 7184 
$™N = 000073 aeos B24 it Be * Be gruze 712 7188 2808 28118 28928 2894 
a 8 Sa Se 9 es O41 Se 3061 30658 3085 30898 
8 1 me gas e318 58 88 3291 3008 3319 3353 
x 458 @ 487 $38 3507 148 gal ® 3557 3565 
33348 Se 468 $Eb6 8s 84 36948 3712 37188 
37448 1 8 les 14 3 38 3884 3938 40388 
4092 41908 4191 4e4 43178 4318 4431 4461 44698 4471 4537 4580 45978 
4599 4684 rie 47468 474 3 4894 49028 4904 995 50708 72 
2) 38 1 1998 S201 Se S34Se S34 S440 54893 $4978 5499 5593 
peat ® 5728 $771 $7838 84 5868 $915 S9ee8 5923 6023 6073 
is 1 6238 62468 8 6341 6402 64le8e 6413 6429 6433 64378 
6436 4S 1 64618 
0011 Slis 41# 
STPFLG 00115 lis 41 
STPS 001150 lie 8641 
STRAP O62 864e8 
STRAP2 O624 428 
STRP = OOOO16 86428 
arate pee a the 
TSTNM ll lle 6469% 64978 8641# 8642 
STTYIN O61 86418 
T eekeeE U 42 
Stype Beale “is Be4 
Stypec be0ese Beuis 
STYPEX 060324 ee ‘a 
STYPOC 062154 428 
Stypos 063130 Bese 
» 
SXTSTR pe54 Bes * 
= a 
06.2353 B642e8e 
S4OCAT= x#eee4 U 864 B64e 
_ = 062630 8 4698 4928 5108 siis 19978 goose eSeSe  e25928 s3a38 ess48 2625 26388 
398 408 828 26868 ecere 27468 7878 27858 27918 eSee c88le e883e  28sss 
r a i968 6464s 4668 6497 65318 6534s 75888 75968 76008 981588 981598 
81608 S816l8 B8l6ee 81638 81658 81668 81678 81688 816S5e 86318 B8641l8 8642 


KOe 


DOSKLS_CTRLR MACY11 30( NOV-77 11:48 PAGE e332. 


CZRJHBO, RPOY/S/ 6) = 
eSnsne Pie 18-Rov=?7 11:0 CRO S REFERENCE TABLE -- MACRO N SEG 0230 
CHECKA 4848 4432 4SS0 4708 4863 $024 $151 5310 S460 S623 5740 5892 6043 6204 6371 
CHECKB 4848 3843 3908 4062 4214 4427 ps4 4665 4824 4977 Slee S267 S42e 5574 S712 
S649 61S7 6322 68ss 6S. 7 
COMMEN m2 4878 
ENDCOM 4 my 4 
ERROR 4878 " 2699 2714 949 987 3019 potat 306 3085 3106 3130 3168 3227 32 
3291 1 3371 auiz os 2 3807 S31 385 3$83 3608 38 3662 3684 37le 
ue ye Bl Bo Be be me He ye ie by Se Be gs Be 
S0S9 S144 eis 5182 2183 Bs 7 dSaq sae 5443 dqes daes 2491 2c4e 5605 
mi, He fie be fe il fe Mi Be me me fe Be Be oes 
669 B706 bri at 6734 6742 6748 e7e3 6787 7127 7129 7183 7155 7170 7181 
7191 7201 262 7487 7463 7S23 
ESCAPE 4878 
ok ae 
8 
ae 
HCOMPW 484s 
MAKECL 4848 3S6 3908 
MSG 26568 S$? 28 2693 26i0e e811 esses 29018 2902 38128 38828 3883 40378 4038 41898 
4190 43178 4468s 4469 45968 4597 474Se 4746 49018 4902 50698 5070 Si988 5199 S344s 
345 S4 s4 56598 5660 S78e8 5783 S92l8  S9ee 60808 6081 6e4Ss b6e46 64lle 6412 
oo 64 64618 
NEWTST 4878 2657 33 2707 2718 2811 2892 23902 23s 23969 3045S S 3089 
3110 3146 184 3231 rte 3 393 4S 3473 3493 3514 6S 3891 
3615 3646 2°33 4 777 806 81 3883 4038 41 4317 4469 497 
4 res J a 497 783 Se arr t $543 41 4 g4e1 
POP 4878 656 6634 13 023 061 231 264 482 $38 1 8018 
80788139 B48: 9 4 Bb4e 
PUSH 4878 BRS Bole 2 97, 036 7214 7243 7348 74399 7546 7702 7841 
REPORT "ante 1 8S 8610 8641 8642 
RF ORGC 4848 4580 47 4 7 82 5334 5489 5653 5771 5915 6073 6238 6402 
A ee ms aes 3033 14 3231 3015 
SAVTST 4848 2658 34 707 3 3 299 3022 304S 3110 3146 
3184 3231 m0 sae 4 3023 3493 3514 saya 5 3591 wed 3646 
3694 19 3 14 4 40 4191 4318 4471 4s99 474 4904 
$072 Seok $34 wag Fats 784 3363 248 a3 OBE 
SCOPE 4878 265 33 70 271 11 8 & 3022 304S 3065 3089 
3310 146 184 1 a300 339 Say ai3 323 3493 3514 38393 3565 3$91 
1S 46 4 36 1 3744 7 388 038 4190 4317 4469 4S97 
47 7 5199 534 5497 S660 5783 See 6081 6246 64le 7 6461 6497 


3 443 4461 453 $138 S286 S440 5893 5728 5868 60e3 
6175S 6341 b4e 6433 645 
SLASH 4878 
SMORE 4848 8641 
SPACE 4878 
STARS 478 483 48768 489 S11 2221 e222 2ess 2eS6 26587 2693 2707 2718 2773 2782 


TRB eSB Revee7 Tisos | *CY* SBR8S here Renee TABLE =— MACRO NARES seo 0231 


2811 0 3 3 00! 22 3045S 3065 3089 3110 
ae eas ce oi me ey 80 Bh Be Be 
6S 573 04 


908 He 5 6 64le 6437 6461 6497 6502 
6 6 S93 6571 6 6611 6623 666 5 723 6726 6760 764 6811 
58e8 gc 539 71 ka S208 1 4 S280 026 035 7065 7079 207 7213 7235 
eve e7 86 490 4e S44 $70 7$7e 7617 7675 7677 77933 7816 7822 
T gcse 808s 8086 8151 8176 8177 8329 8330 8495 8496 8601 


7 
oc 
TJUMP 4648 3493 3514 3591 3814 3936 4092 4243 


TSCLR 

TSCLR 4648 

TSCL 484s 

TSCL 4848 

TSCLRY 4BY e 

TSCLRS 464s 

t in 4B? 8 6497 8642 

TYPRAR «NBs 

TYPNUM 4878 

TYPOET ae easy 8641 eae 

TYPTXT 4878 2637 2639 2640 49 73 83 see 2723 274S 2746 2787 2789 2791 28se 
28s4 e880 $265 2884 9s 38 195 196 BY6Y 6466 6526 6528 6531 6534 7573 
7576 7588 7892 Soy 596 7598 7600 8630 

HDATAR 464s 

XREAD 4YBYe 
Slis 

Ssecca a7 

SSNEWT 4878 7 7 7 si 969 300 3022 304S 3065 3089 
3110 er tr $297 $228 $840 $825 5305 Sao 8353 3995 3514 35393 3565 3591 
3615 secs 2ne8 3634 ria 3744 444 2508 381le 3883 4038 4190 4317 4469 4597 
4746 4 SO 51939 34 5497 60 783 $922 6081 6246 6412 6437 6461 

SSSET Bb4e8 

SSSKIP 487% 

- EQUAT 4678 487 

-FLOAT 484s 

. HEADE 4678 

-KT11 4678 5093 

. SETUP 4678 #2623 

. SWRHI 4678 4 

- LO 4678 4856 

. SAC A 4678 YQ 

-SCATC 467% 488 

- SCMTA 4678 Ss 

-$e0e 4678 on 

. SERRO 4678 4 

. SERRT 4678 864 

- SPOWE 4678  B864e 

; 4678  B8642 

. AD 4678 8641 

. SSCOP 4678 8641 

. STRAP 4678 Bb4e 


75/6 DSKLS CTRLR@ MACY11 30(1046) 10-NOV-77 11:48 PAGE 235 2 
cornea ee. 10-NOV-77 11:09 CROSS REFERENCE TABLE -- MACRO NAMES SEG Deze 
. Wor 4678 8641 
# 4678 68641 
- STYPO 4678 8642 


- ABS. 062630 000 


ERRORS DETECTED: 0 
RMOS: C ae CERISE rcs MC: ME: CND=RMO3: CZRJHB.P11,CZRIHB.Ple 
RUN-TIME 


eh ‘itage Se neu/53-8. Bn82 


NOe 


